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SBTTL OPERATIONAL SWITCH SETTINGS 

* SWITCH USE 



SEQ 0016 



SEO 0018 



638 




639 




640 




641 




642 




643 




644 




645 




646 




647 




648 




649 




650 




651 




652 




653 




654 




655 




656 




657 




658 




659 


001100 


660 




661 




662 




663 




664 


000011 


665 


000012 


666 


000015 


667 


000200 


668 


177776 


669 




670 


177774 


671 


177772 


672 


177570 


673 


177570 


674 




675 




676 


000000 


677 


000001 


678 


000002 


679 


000003 


680 


000004 


681 


000005 


682 


000006 


683 


000007 


684 


000006 


685 


000007 


686 




687 




688 


000000 


689 


000040 


690 


000100 


691 


000140 


692 


000200 


693 


000240 



15 

14 

13 

11 

10 

9 

7 

6 

5 

4 

3 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOCK ON CURRENT DRIVE 

DELAY AT END OF EACH FUNCTION 

RUN WITHOUT INTERRUPTS 

IGNORE BLOCK CHECK ERRORS 

INHIBIT DATA COMPARE 



.SBTTL BASIC DEFINITIONS 

;*INIT1AL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACKS 1100 

.EQUIV EMT, ERROR ;: BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT, SCOPE ;; BASIC DEFINITION OF SCOPE CALL 

;*MISCELLANEOUS DEFINITIONS 

;;CODE FOR HORIZONTAL TAB 
jCODE FOR LINE FEED 
;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
;; PROCESSOR STATUS WORD 

;STACK LIMIT REGISTER 
; PROGRAM INTERRUPT REQUEST REGISTER 
{HARDWARE SWITCH REGISTER 
{HARDWARE DISPLAY REGISTER 



{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{STACK POINTER 
{PROGRAM COUNTER 



HT= 


11 ; 


LF= 


12 { 


CR= 


15 ; 


CRLF=: 


200 ; 


PS= 


177776 { 


.EQUIV 


PS.PSW 


STKLMTa 


177774 ; 


PIRQs 


177772 { 


DSWRs 


177570 { 


DDISP^ 


177570 { 


{^GENERAL PURPOSE ^EGISTE 


R0= 


%o ; 


Ris 


%1 { 


R2» 


%2 


R3= 


%3 { 


R4= 


%4 


R5= 


%5 { 


R6» 


%6 { 


R7= 


%7 { 


SP= 


%6 { 


PC= 


%7 ; 


{*PRIORITY LEVEL DEFINITI 


PRO* 


5 


PR1« 


40 


PR2a 


100 { 


PR3« 


140 { 


PR4« 


200 { 


PR5« 


240 ; 



{PRIORITY LEVEL 

{PRIORITY LEVEL 

{PRIORITY LEVEL 

{PRIORITY LEVEL 

{PRIORITY LEVEL 

{PRIORITY LEVEL 
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SEQ 001 f 



694 


000300 


695 


000340 


696 




697 




698 


100000 


699 


040000 


700 


020000 


701 


010000 


702 


004000 


703 


002000 


704 


001000 


705 


000400 


706 


000200 


707 


000100 


708 


000040 


709 


000020 


710 


000010 


711 


000004 


712 


000002 


713 


000001 


714 




715 




716 




717 




718 




719 




720 




721 




722 




723 




724 




725 




726 


100000 


727 


040000 


728 


020000 


729 


010000 


730 


004000 


731 


002000 


732 


001000 


733 


000400 


734 


000200 


735 


000100 


736 


000040 


737 


000020 


738 


000010 


739 


000004 


740 


000002 


741 


000001 


742 




743 




744 




745 




746 




747 




748 




749 





PR6= 


300 {{PRIORITY i-EVEL B 


PR7 = 


340 {{PRIORITY LEVEL 7 


{^■'SWITCH REGISTER" SWITCH DEFINITIONS 


SW15» 


100000 


SW14« 


40000 


SW13» 


20000 


SW12» 


10000 


SW11* 


4000 


SWiOs 


2000 


SW09« 


1000 


SW08= 


400 


SW07= 


200 


SW06= 


100 


SW05= 


40 


SW04= 


20 


SW03= 


10 


SW02« 


4 


SW01 = 


2 


SW00 = 


1 


.EQUIV 


SW09,SW9 


.EQUIV 


SWOB , SW8 


.EQUIV 


SW07,SW7 


.EQUIV 


SW06,SW6 


.EQUIV 


SW05,SW5 


•EQUIV 


SW04,SW4 


.EQUIV 


SW03,SW3 


.EQUIV 


SW02,SW2 


.EQUIV 


SWOI.SWI 


•EQUIV 


SWOO.SWO 


{••■DATA 


BIT DEFINITIONS (BITOO TO BITIi) 


BIT15a 


100000 


BIT14^ 


40000 


BIT13SS 


20000 


BIT12= 


10000 


BIT11* 


4000 


BIT10»= 


2000 


BIT09« 


1000 


BIT08« 


400 


BIT07« 


200 


BIT06=. 


100 


BIT05«! 


40 


BIT04a 


20 


BIT03= 


10 


BIT02« 


4 


BIT01« 


2 


BIT00« 


1 


.EQUIV 


BIT09,BIT9 


.EQUIV 


BIT08,BIT8 


.EQUIV 


BIT07.BIT7 


.EQUIV 


BIT06.BIT6 


.EQUIV 


BITOS.BITS 


.EQUIV 


BIT04,BIT4 


.EQUIV 


BIT03,BIT3 


.EQUIV 


BIT02,8IT2 
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751 




752 




753 




754 


000004 


755 


000010 


756 


000014 


757 


000014 


758 


000014 


759 


000020 


760 


000024 


761 


000030 


762 


000034 


763 


000060 


764 


000064 


765 


000240 


766 




767 




768 




769 


000000 


770 


000002 


771 


000004 


772 


000006 


773 


000010 


774 


000012 


775 


000014 


776 


000016 


777 




778 




779 


100000 


780 


040000 


781 


020000 


782 


010000 


783 


004000 


784 


002000 


785 


001000 


786 


000400 


787 


000200 


788 


000100 


789 


000040 


790 


000020 


791 


000010 


792 


000004 


793 


000002 


794 


000001 


795 


000016 


796 . 




797 




798 




799 




800 




801 


000004 


802 


000005 


803 





.EOUIV 


BIT01 


,BIT1 




.EOUIV 


BITOO 


.BITO 




;*BASIC 


"CPU" 


TRAP 


VECTOR 


ERRVEC» 


4 






RESVEC= 


10 






TBITVEC 


»14 






TRTVEC= 


14 






BPTVECs 


14 






IOTVEC= 


20 






PWRVECs 


24 






EMTVEC= 


30 






TRAPVEC 


= 34 






TKVEC= 


60 






TPVEC= 


64 






PIROVEC 


=240 






. .*♦*** 




',§mtiiiiiiHMi(^lk%-\ FUNCTIONS 


XWFGs 









XWRITE« 


2 






XREAD« 


4 






XBSFG* 


6 






XBSBG« 


10 






XSFFGs 


12 






XSFBGs 


14 






XRWND= 


16 







ADDRESSES 

TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRUCTIONS 

"T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (lOT) **SCOPE** 

POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 

************************************** 



; WRITE FILE GAP FUNCTION 
IWRITE FUNCTION 
;READ FUNCTION 

jBACK SPACE FILE GAP FUNCTION 
;BACK SPACE BLOCK GAP FUNCTION 
; SPACE FWD FILE GAP FUNCTION 
; SPACE FWD BLOCK GAP FUNCTION 
; REWIND FUNCTION 



ERRORS BIT15 
CRCERRs BIT14 
LEADER* B1T13 
WRTL0CK=BIT12 
FGAP= BIT11 
TIMERR= BIT10 
OFFLINE=BIT09 
UNIT= BIT08 
TR.REO« BIT07 
INT.EN= BIT06 



BIT hSSlQUmEmilMHHUifU^ifU 



READY- 

ILBS = 

FUNC2» 

FUNC1* 

FUNCOs 

G0= 



BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 



FUNC2+FUNC14-FUNC0 



////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
SPECIAL REGISTERS 

TACS« %4 ;R4 IS USED AS A POINTER TO THE TACS REGISTER 

TADB= %5 ;R5 IS USED AS A POINTER TO THE TADB REGISTER. 



TA11 MOTION TEST CZTAD-0 MACYIt 30A(105a) 23-i^AR-78 
CZTADD.P11 23-MAR-78 08:34 TRAP CATCHER 

.SBTTL TRAP CATCHER 



08:35 PAGE 19 



S£Q 0019 



SEO 0019 



804 








805 








806 




000000 




807 








808 








809 








810 




000174 




811 


000174 


000000 




812 


000176 


000000 




813 








814 


000200 


000137 


001450 


815 


000204 


000137 


001502 


816 


000210 


000137 


001510 


817 


000214 


000137 


002036 


818 


000220 


000137 


012364 


819 


000224 


000137 


012440 


820 


000230 


000137 


012522 


821 


000234 


000137 


012610 


822 


000240 


000137 


012702 


823 


000244 


000137 


013000 


824 


000250 


000137 


013054 


825 








826 









;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A «.+2,HALT'' 
;*SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
. = 174 

j; SOFTWARE DISPLAY REGISTER 
; {SOFTWARE SWITCH REGISTER 

jjJUMP TO STARTING ADDRESS OF PROGRAM 

; SELECT DRIVECSJ BEFORE STARTING TEST 
jSELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 
; SETUP FOR MANUAL LOOPING 
; WRITE FILE GAP FROM BOT TO EOT 
-.WRITE CONTINUOUS BLOCKS OF DATA 
-.READ CONTINUOUS BLOCKS OF DATA 
; WRITE FILE GAP AND A BLOCK OF DATA 
jREAD BLOCK OF DATA AND INTO A FILE GAP 
; SPACE FWD FILE GAP FROM BOT TO EOT 
;BACK SPACE FILE GAPS 
•**«*************#**************** *^ ************ **************** 



DISPREG 


: .WORD 





SWREG: 


.WORD 





.SBTTL 


STARTING ADDRESS(ES) 




UMP 


@/!^BEGIN1 




JMP 


i»#BEGIN2 




JMP 


©# BEGINS 




UMP 


®#BEGINX 




UMP 


©#WFGSUB 




UMP 


@#WRTSUB 




UMP 


mmsm 




UMP 


@#WGPBLK 




UMP 


@#RGPBLK 




UMP 


@#SFFGSB 




UMP 


@#BSFGSB 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 
CZTADD.P11 23-MAR-78 08:34 COMMON TAGS 

.SBTTL COMMON TAGS 



08:36 PAGE 20 



SEQ 0030 



SEO 0020 



827 






828 






829 






830 






831 






832 






833 




001100 


834 


001100 




835 


001100 


000000 


836 


001102 


000 


837 


001103 


000 


838 


001104 


000000 


839 


001106 


000000 


840 


0011 10 


000000 


841 


001112 


000000 


842 


001114 


000 


843 


001115 


001 


844 


0011 16 


000000 


845 


001120 


000000 


846 


001122 


000000 


847 


001124 


000000 


848 


001126 


000000 


849 


001130 


000000 


850 


001132 


000000 


851 


001134 


000 


852 


001135 


000 


853 


001136 


000000 


854 


001140 


177570 


855 


001142 


177570 


856 


001144 


177560 


857 


001146 


177562 


858 


001150 


177564 


859 


001152 


177566 


860 


001154 


000 


861 


001155 


002 


862 


001156 


012 


863 


001157 


000 


864 


001160 


000000 


865 






866 


001162 


000000 


867 


001164 


000000 


868 


001166 


000000 


869 


001170 


000000 


870 


001172 


000000 


871 


001174 


177607 000377 


872 


001200 


077 


873 


001201 


015 


874 


001202 


000012 


875 






876 


001204 


000000 


877 


001206 


000000 


878 


001210 


000000 


879 


001212 


000000 


880 


001214 


000000 


881 






882 


001216 


000001 



*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
*USED IN THE PROGRAM. 



SCMTAG: 

$PASS: 

STSTNM: 

SERFLG: 

SICNT: 

SLPADR: 

SLPERR: 

SERTTL: 

SITEMB: 

SERMAX: 

SERRPC: 

SGOADR: 

SBDADR: 

SGDDAT : 

Sbddat: 



SAUTOB: 
SINTAG: 

SWR: 

DISPLAY! 

STKS: 

$TKB: 

$TPS: 

$TPB: 

SNULL: 

SFULS: 

SFILLC: 

STPFLG: 

SREGAD: 



.xiioo 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• BYTE 
.BYTE 
.WORD 
.WORD 











1 










DSWR 



.WORD DDISP 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 2 
.BYTE 12 
.BYTE 
.WORD 



SREGO: .WORD 

SREGI: .WORD 

stmpo: .word 

STIMES: 
SESCAPEIO 

SBE.l: .ASCIZ <207><377><377> 



SQUES: .ASCII 
SCRlF: .ASCII 
$LF: .ASCIZ 



/?/ 

<15> 

<12> 



SAVPC: .word 



Bytnum: .word 

RCRCO: .WORD 

RCRCi: .WORD 

RCRC2: .WORD 

$MXCNT! 1 



START OF COMMON TAGS 
CONTAINS PASS COUNT 
CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTiON 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'SAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED— NOT TO BE USED 



AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS H OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG {BIT<07>>«0bYES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREGO) WAS OBTAINED 

CONTAINS (($REGAO)+0) 

CONTAINS C($REGAD)+2) 

USER DEFINED 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

CODE FOR BELL 

QUESTION MARK 

CARRIAGE RETURN 

LINE FEED 

; STORAGE FOR THE PC 

;THE NUMBER OF BYTES "READ" OR "WRITTEN 

;CRC CALCULATED FOR "WRITE" 

;CRC CALCULATED FOR "READ" 

:CRC FROM THE TA11 FOR "READ" 

if^AX. NUMBER OF ITERATIONS 



TA11 MOTION TEST CZTAD-D MACYIt 30A(1052) 23-MAR-78 08S36 PAGE 21 
CZTADD.P11 23-MAR-78 08:34 COMMON TAGS 



SEQ 0021 



883 


001220 


177500 




tacsl: 


177500 


884 


001222 


177501 




Tacsh: 


177501 


885 


001224 


177502 




tadbl: 


177502 


886 


001226 


177503 




tadbh: 


177503 


887 


001230 


000260 


000262 


TAVEC: 


260 , 262 


888 


001234 


000300 




TAPRIO: 


300 


889 


001236 


000000 




DRIVE: 





890 


001240 


000000 


000000 


DRVKEY: 


0,0 


891 


001244 


001240 




DRVPNT: 


DRVKEY 


892 


001246 


000000 




ASKKEY: 





893 


001250 


177777 


000000 


CURDRV: 


-1 ,0 


894 


001254 


000000 




WAITKEY 




895 


001256 


001260 




rwdflg: 


RWDA 


896 


001260 


000000 




RWDA: 





897 


001262 


000000 




RWDB: 





898 


001264 


000000 


000000 


stall: 


0,0 



SLOW BYTE ADDRESS OF TACS 
JHIGH BYTE ADDRESS OF TACS 
JLOW BYTE ADDRESS OF TADB 
-.HIGH BYTE ADDRESS OF TADB 
;TA11 VECTOR ADDRESS 
JTAII BR LEVEL 6 
{NEXT DRIVE TO TEST 
; DRIVE SELECT KEY! 



:CURRENT DRIVE BEING TESTED 

JWAIT ON INTERRUPT KEY 

; REWIND FLAG POINTER 

; DRIVE "A» REWIND FLAG 

: DRIVE ''B" REWIND FLAG 

J STALL TIME 



SEQ 0031 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 22 
CZTADD.P11 23-MAR-78 08:34 ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 



SEQ 9032 



899 






900 






901 






902 






903 






904 






905 






906 






907 






908 






909 






910 






911 






912 






913 


001270 




914 






915 






916 






917 


001270 


015540 


918 


001272 


016102 


919 






920 


001274 


015044 


921 


001276 


000000 


922 






923 






924 


001300 


015566 


925 


001302 


015102 


926 






927 


001304 


015044 


928 


001306 


000000 


929 






930 






931 


001310 


015615 


932 


001312 


016102 


933 






934 


001314 


015044 


935 


001316 


000000 


936 






937 






938 


001320 


015633 


939 


001322 


016102 


940 






941 


001324 


015044 


942 


001326 


000000 


943 






944 






945 


001330 


015654 


946 


001332 


016102 


947 






948 


001334 


015044 


949 


001336 


000000 


950 






951 






952 


001340 


015705 


953 


001342 


016102 


954 







*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

^LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

*N0TE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS.' 

POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



ALL NUMBERS WILL BE TYPED AS 6 DIGIT OCTAL NUMBERS 



5 * 
• * 


EM 
DH 
OT 
DF 


SERRTB 
;N0TE: 


ALL 


lITEM 


1 

EMI 

DH1 




DTI 
Q 


turn 


2 

EM2 
DH1 




DTI 



J ITEM 


3 

EMS 
DH1 




DTI 



J ITEM 


4 

EM4 

DH1 




DTI 



J ITEM 


S 

EMS 

DH1 




DTI 



;ITEM 


6 

EM6 

DH1 



; IMPROPER FLAG SETTING 
JTEST ERROR 

;PC PC TACS TADB 
;SAVPC $ERRPC $REGO $REG1 



; IMPROPER FLAG OCCURRED 
JTEST ERROR 

;PC PC TACS TADB 
;SAVPC SERRPC $REGO $REG1 



'.MISSED A FLAG 

J TEST ERROR 

IPC PC TACS TADB 

;SAVPC SERRPC $REGO $REG1 



{INTERRUPT FAILED 

5 TEST ERROR 

;PC PC TACS TADB 

;SAVPC SERRPC SREGO SREGI 



{PREMATURE READY OCCURRED 
jTEST ERROR 

;PC PC TACS TADB 
ISAVPC SERRPC SREGO $REG1 



JDIDN'T STOP IN A FILE GAP 

} TEST ERROR 

IPC PC TACS TADB 



Z5!lr.5I°'^^°'^ ^^^^ CZTAD-D MACYtl 30A(1052) 23-MAR-7a 08:36 PAGE 23 
CZTADD.P11 23-MAR~7a 08:34 ERROR POINTER TABLE 



SEO 0033 



955 


001344 


015044 


956 


001346 


000000 


957 






958 






959 


001350 


015737 


960 


001352 


016102 


961 






962 


001354 


015044 


963 


001356 


000000 


964 






965 






966 


001360 


015773 


967 


001362 


016162 


968 






969 


001364 


015056 


970 


001366 


000000 


971 






972 






973 


001370 


016011 


974 


001372 


016601 


975 






976 


001374 


015126 


977 


001376 


000000 


978 






979 






980 


001400 


016035 


981 


001402 


016323 


982 






983 


001404 


015074 


984 


001406 


000000 


985 






986 






987 


001410 


016047 


988 


001412 


016461 


989 






990 


001414 


015112 


991 


001416 


000000 


992 






993 






994 


001420 


016064 


995 


001422 


016601 


996 






997 


001424 


015126 


998 


001426 


000000 


999 






1000 


001430 




1001 






1002 


001430 


016664 


1003 


001432 


016736 


1004 


001434 


016652 


1005 


001436 


000000 


1006 






1007 


001440 


016713 


1008 


001442 


016753 


1009 


001444 


016660 


1010 


001446 


000000 



JITEM 



J ITEM 



DTI 



;SAVPC SERRPC 


SREGO 


SREGI 






7 

EM7 
DH1 

DTI 



{DIDN'T STOP ON CLEAR 
JTEST ERROR 
J PC PC TACS 
JSAVPC SERRPC SREGO 


LEADER 

TADB 
SREGI 






10 

EM10 
DH2 

DT2 



;bad data read 
jtest error 

J PC PC 
JSAVPC SERRPC 


TACS 
SREGO 


EXPT'D 

DATA 

S6DDAT 


RCV'D 

DATA 

SBODAT 


BYTE 

NUMBE 

BYTNU 


11 

EMU 

DH5 

DT5 



J ILLEGAL BUFFER 
JTEST ERROR 
J PC PC 
JSAVPC SERRPC 


TACS 
SREGO 








12 

EMI 2 
DH3 

DT3 



JCRC ERROR 
{TEST ERROR 

PC PC 

SAVPC SERRPC 


TACS 
SREGO 


WRITE 

CRC 

RCRCO 


READ 

CRC 

RCRC1 


TU60 

CRC 

RCRC2 


13 

EMI 3 
DH4 

DT4 



SHORT RECORD 
TEST ERROR 
PC PC 
SAVPC SERRPC 


TACS 
SREGO 


TADB 
SREGI 


BYTES 

LEFT 

STMPO 




14 

EMI 4 1 

DH5 1 

DT5 1 



BAD INTERRUPT 
TEST ERROR 
PC PC 
SAVPC SERRPC 

ITEMS 201-202 


TACS 
SREGO 








EM201 1 
DH201 ; 
DT201 ; 



TA11 FAILED TO RESPOND 

PC TACS 

SERRPC TACS 

BOTH NUMBERS ARE TYPED 


AS OCTAL NUMBERS 




EM202 ; 
0H202 ! 
OT202 j 
1 


NO DRIVES AVAILABLE 

PC 

SERRPC 









TA11 MOTION TEST CZTAD-0 &1ACY11 30A(1052) 23-MAR-78 08J36 PAGE 24 
CZTADD.P11 23-MAR-78 08:34 START OF TEST 



SEO 0024 



SEC? 00S4 



1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
'1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 



001450 
001452 
001460 
001466 
001470 
001476 
001500 
001502 
001506 
001510 
001514 
001516 
001522 



001522 
001526 
001530 
001534 
001536 

001542 
001550 
001556 
001564 
001572 
001600 
001606 
001614 
001622 
001630 
001634 
001640 
001646 
001654 



001662 
001666 
001674 
001702 
001710 
001716 



005005 
012737 
122737 
001015 
022737 
001011 
000403 
012705 
000405 
012705 
000402 
012705 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
0'2737 



013746 
012737 
012737 
012737 
022777 
001012 



041101 
000005 



001240 
000041 



000260 001230 

000001 
000002 
000003 



001100 

006570 
000340 
007046 
000340 
014554 
000340 
014662 
000340 
006406 
001170 
001172 
000001 
001646 
001654 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
006400 



001115 
001106 
001110 



000004 

001722 000004 

177570 001140 

177570 001142 

177777 177222 



;////////////////////////////////////////////////////////////////////// 
;////////////////////////////////////////////////////////////////////// 



• « IK « « « « « !$l « !jl « !il 



****** Ijl******.!:******®******^,**^!* 



JBEGINI IS FOfi NORMAL START 

;BEGIN2 IS FOR DRIVE SELECTION 

;BEGIN3 IS FOR DRIVE S ADDRESS SELECTION 

;BEGIN4 IS FOR MANUAL OPERATION 

J ******************** ****«*******»**iSi««***«********«**««**«^^4,^*0 



BEQINi: CLR 
MOV 
CMPB 
BNE 
CMP 
BNE 

8EGIN2: MOV 

BEGINS: MOV 

BEGIN4: MOV 

BGNCMN: 

.SBTTL INITIALIZE THE COMMON TAGS 

J -.CLEAR THE COMMON TAGS (SCMTAG) AREA 



R5 

iSf'AB.^^DRVKEY 

#S,@#41 

BGNCMN 

#260,@#TAVEC 

BGNCMN 

BEGIN3 

#1,R5 

BGNCMN 

#2,R5 

BGNCMN 

j^3.R5 



; NORMAL START 

; CASSETTE DDP? 

;G0 BEGIN COMMON CODE IF NO 

; STANDARD VECTOR? 

;G0 BEGIN COMMON CODE IF NO 

;GET DRIVES AND ADDRESSES 

;ASK FOR DRIVES FLAG 

: BEGIN COtmOH CODE 

;ASK FOR DRIVES AND ADDRESSES 



MOV 
CLR 
CMP 
BNE 
MOV 



il'SCMTAG.RS 

<R6) + 

ilfSWR.Re ;;DONE? 

.-6 

#STACK,SP 



I UNITIALIZE A FEW VECTORS 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

MOVB 

MOV 

MOV 



iS'SSCOPE.P^IOTVEC 
#340,@#IOTVEC+2 ; 
#$ERROR,®#EMTVEC 
#340,@#EMTVEC+2 ; 
#$TRAP,@#TRAPVEC 
#340, §>#TRAPVEC+2; LEVEL 7 



#$PWRDN,@/i(PWRVEC 

#340.i>#PWRVEC+2 5 

SENDCT.SEOPCT ; 

STIMES ; 

SESCAPE ; 

j^l.SERMAK ; 

iS^.-SLPADR 

#.,$LPERR ; 
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT li 
;;EOUAL TO A »-1«, SETUP FOR A SOFTWARE SWITCH REGISTER. 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 

LOOP BACK IF NO 

SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 

LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 

LEVEL 7 

JTRAP VECTOR FOR TRAP CALLS 



; POWER FAILURE VECTOR 

LEVEL 7 

SETUP END-OF-PROGRAM COUNTER 

INITIALIZE NUMBER OF ITERATIONS 

CLEAR THE ESCAPE ON ERROR ADDRESS 

ALLOW ONE ERROR PER TEST 

INITIALIZE THE LOOP ADDRESS FOR SCOPE 

SETUP THE ERROR LOOP ADDRESS 



001720 000403 



MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 



@#ERRVEC,-(SP) 

#64S,@#ERRVEC 

J|>DSWR.SWR 

#DDISP, DISPLAY 

#-1 ,@SWR 

66$ 

65$ 



AVE ERROR VECTOR 
;SET UP ERROR VECTOR 

; SETUP FOR A HARDWARE SWICH REGISTER 
I AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
; BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT « -1 
{BRANCH IF NO TIMEOUT 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 25 
CZTADD.P11 23-MAR-78 08:34 INITIALIZE THE COMMON TAGS 



SEQ 0025 



SEQ 0023 



1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 



001722 
001726 
001730 
001736 
001744 



001750 
001754 
001756 
001764 
001766 

001772 
001776 
002000 
002006 
0020 10 
002012 
002014 
002022 
002022 

002036 



012716 001730 
000002 

012737 000176 

012737 000174 

012637 000004 



001140 65$: 
001142 

66$: 



005227 
001030 
022737 
001424 
104401 



MOV 
RTI 
MOV 
MOV 
MOV 



#65$, (SP) 

^SWREQ.SWR 
jlfDISPREG, DISPLAY 
(SP)+,@#ERRVEC 



-.{SET UP FOR TRAP RETURN 
;; POINT TO SOFTWARE SWR 
J ; RESTORE ERROR VECTOR 



.SBTTL TYPE PROGRAM NAME 

I ; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



006432 000042 



002024 



INC 
BNE 
CMP 
BEQ 
TYPE 



#- 

HERE 

#$ENDAD,i>#4S 

HERE 

,MSGID 



; FIRST TIME? 
; ; BRANCH IF NO 
;;ACT-11? 
; ; BRANCH IF YES 
5 ;TYPE ASCIZ STRING 



005737 000042 

001006 

023727 001140 000176 

001005 

104405 

000403 

112737 000001 001134 

000405 



.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 



67$: 
68$: 



TST 

BNE 

CMP 

BNE 

GTSWR 

BR 

MOVB 



@#42 

67S 

SWR.^SWREG 

68$ 

68$ 

#1 ,$AUT06 



;;ARE WE RUNNING UNDER XXDP/ACT? 

I ; BRANCH IF YES 

; {SOFTWARE SWITCH REG SELECTED? 

I {BRANCH IF NO 

;;GET SOFT-SWR SETTINGS 

J {SET AUTO-MODE INDICATOR 



{{MSGID: 
here: 



HERE 
.ASCII 



{{GET OVER THE ASCIZ 
<CRLF>/CZTAD~D/<CRLF> 



TA11 MOTION TEST C2TAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 26 
CZTADD.P11 23-MAR--78 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0026 



1092 








; • **** 






1093 








J ; **** 


*******$i 




1094 














1095 








;THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 


1096 








; 






1097 








; 


R5=3 


MANUAL OPERATIONS 


1098 








; 


R5=2 


ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 


1099 








; 


R5 = 1 


ASK FOR DRIVE(S) 


1100 








; 


R5 = 


DON'T ASK FOR ANYTHING 


1101 








• 






1102 








J ;**** 




1 103 


002036 


010504 




BEGINX 


: MOV 


R5,R4 ;COPY R5 


1 104 


002040 


005305 






DEC 


R5 ;ASK FOR DRIVES? 


1105 


002042 


002406 






BLT 


CHKADR ;BR IF NO 


1106 


002044 


004737 


007422 




USR 


PC,@#ASKDRV ;G0 GET DRIVES TO BE TESTEC 


1107 


002050 


005305 






DEC 


R5 ;ASK FOR ADDRESSES? 


1108 


002052 


002402 






BLT 


CHKADR ;BR IF NO 


1109 


002054 


004737 


007532 




JSR 


PC,@#ASKAOR ;G0 GET TA1 1 ADDRESSES 


1 1 10 










1111 










1112 














1113 








; CHECK 


THAT "TACS" WILL RESPOND TO ADDRESSING 


1114 








J 






1115 








;i. 


TIMEOUT 


OCCURRED 


1116 








J 


A. TYPS 


ERROR MESSAGE 


1117 








J 


B. EXAMINE R4 


1118 












1. R4>0 GOTO BEGINX 


1119 








1 




2. R4»0 EXAMINE (42) 


1120 








; 




A. (42)^0 GOTO BEGINX 


1 121 

1 122 








• 




B. (42)>0 GOTO SENDAD 


1123 








;II. 


TIMEOUT 


DIDN'T OCCUR 


1124 








; 


A. CONTINUE 


1125 














1126 








. .***** 




1127 


002060 


012737 


002076 000004 


CHKAOR: 


MOV 


#1S.@#ERRVEC ;IN CASE OF TIMEOUTS 


1128 


002066 


005000 






CLR 


RO ;USE AS A SWITCH 


1129 


002070 


005777 


177124 




TST 


^TACSL ;SEE IF TA11 RESPONDS 


1130 


002074 


000402 






BR 


2$ ; BR IF NO TIMEOUT 


1131 


002076 


005200 




1$: 


INC 


RO ;CDKE HERE ON TIMEOUT 


1132 


002100 


022626 






CMP 


{SP) + ,CSP)-8- SCLEANUP THE STACK 


1133 


002102 


012737 


000006 000004 


2$: 


MOV 


#ERRVEC+2.WERRVEC ; RESTORE TIMEOUT VECTOR 


1134 


002110 


005700 






TST 


RO ;DID A TIMEOUT OCCUR? 


1135 


0021 12 


001412 






BEO 


3$ ; BR IF NO 


1136 


0021 14 


104201 






ERROR 


201 ;TA11 FAILED TO RESPOND 


1 137 


0021 16 


012705 


000002 




MOV 


*2,R5 IDRIVES & ADDRESSES 


1 138 


002122 


005704 






TST 


R^ SOPERATOR INPUTS? 


1139 


002124 


001344 






BNE 


BEGINX ;BR IF YES 


1 140 


002126 


013700 


000042 




MOV 


@*42.R0 ;GET MONITOR RETURN ADDRESS 


1 141 


002132 


001741 






BEO 


BEGINX ;BR IF NO MONITOR 


1142 


002134 


000137 


006432 




UMP 


@#$ENDAD JGO TO END 


1143 


002140 






3$: 







TA11 MOTION TEST C2TAD-D MACY11 30A(1052) 23-MAR-78 08 536 PAGE 27 
CZTADD.P11 a3-iyiAR-78 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0027 



SEO 0027 



1144 








1145 








1146 








1147 








1 148 








1 149 








1150 








1151 








1152 








1153 








1154 








1155 








1156 








1157 








1158 








1159 








1160 








1161 








1162 








1163 








1164 








1165 


002140 


012700 


001240 


1166 


002144 


004737 


006464 


1167 


002150 


000410 




1168 


002152 


116010 


000001 


1169 


002156 


001412 




1170 


002160 


004737 


006464 


1171 


002164 


000407 




1172 


002166 


005010 




1173 


002170 


000405 




1174 


002172 


005200 




1175 


002174 


004737 


006464 


1 176 


002200 


000401 




1177 


002202 


105010 




1178 


002204 


012700 


001240 


1179 


002210 


010037 


001244 


1180 


002214 


121060 


000001 


1 181 


002220 


001002 




1182 


002222 


105060 


000001 


1183 


002226 


005710 




1184 


002230 


001401 




1185 


002232 


000412 




1186 


002234 


104202 




1187 


002236 


012705 


000002 


1188 


002242 


005704 




1189 


002244 


001274 




1190 


002246 


013700 


000042 


1191 


002252 


001571 




1192 


002254 


000137 


006432 


1193 


002260 


020427 


000003 


1194 


002264 


001002 




1195 


002266 


013704 


177777 


1196 


002272 


010437 


00124S 


1197 


002276 


000405 




1198 


002300 


104401 


002024 


1199 


002304 


012737 


001240 



MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I. DESIRED DRIVES CAN NOT BE TESTED 

A. TYPE ERROR MESSAGE 

B. EXAfillNE R4 

1. R4>0 GOTO BEGINX 

2. R4«0 EXAMINE (42) 

A. (42)=«0 GOTO BEGINX 

B. (42)>0 GOTO SENDAD 

II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

A. CLEAR BAD DRIVE FROM THE DRIVE TABLE 

B. CONTINUE IN PROGRAM 

in. DESIRED DRIVE(S) CAN BE TESTED 
A. CONTINUE IN PROGRAM 



. .****sj 


******jSi!S***********®****sSl 


CHKDRV: 


MOV 


#DRVKEY,R0 




asR 


PC,@i!^EXAM 




BR 


t$ 




MOVB 


1(R0),(R0) 




BEO 


2$ 




USR 


PC.WEXAl 




BR 


2$ 




CLR 


(RO) 




BR 


• 2$ 


1$: 


INC 


RO 




dSR 


PC, @# EX AM 




BR 


2$ 




CLRB 


(RO) 


2$: 


MOV 


#DRVKEY,RO 




MOV 


R0,@(¥DRVPNT 




CMPB 


(R0),1(R0) 




BNE 


3$ 




CLRB 


1(R0) 


3$: 


TST 


(RO) 




BEO 


5$ 




BR 


MANUAL 


SS: 


ERROR 


202 




MOV 


^2,R5 




TST 


R4 




BNE 


BEGINX 




MOV 


©#42. RO 




BEO 


BEGINX 




JMP 


f#SENDAO 


MANUAL: 


CMP R4 


#3 




BNE 


OK 




MOV 


-1,R4 


ok: 


MOV 


R4,®iyASKKEY 




BR 


START 


PWRSTs 


TYPE 


.MSGID 




MOV 


#DRVKEY,®#DRVPNT 



; PICKUP ADDRESS OF ASCII DRIVE KEY 
IGO EXAMINE FIRST DRIVE 

SOK TO TEST GO CHECK NEXT 

;REPLACE 1ST WITH 2ND 

;BR IF NO 2ND DRIVE SELECTED 

;G0 EXAMINE DRIVE 

;0K TO TEST 

I CLEAR DRIVE CODES 

POINT TO 2ND 

GO EXAMINE DRIVc 

OK TO TEST 

CLEAR 2ND 

RESET ADDRESS POINTERS 

1ST = 2ND? 
BR IF NO 
YES— -CLEAR 2m 
ANY DRIVES? 
BR IF NO 

NO DRIVES AVAILABLE 

DRIVES & ADDRESS 

OPERATOR INPUTS? 

BR IF YES 

GET MONITOR RETURN ADDRESS 

NO MONITOR 

GO TO END 



I POWER FAIL RESTART 



TA11 MOTION TEST CZTAD-D MACYtl 30A(1052) 23-MAR-78 08:36 PAGE 28 
CZTADD.P11 23-MAR-7a 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEO 0028 



SEO 002S 



1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 



002312 
002320 
002326 
002334 
002340 
002344 
002350 
002354 
002362 
002366 



002372 
002376 
002402 
002406 
002414 
002416 
002422 
002424 
002430 
002432 
002436 
002440 
002444 
002450 
002454 
002460 
002464 
002472 
002476 



002500 
002502 
002510 
002514 
002522 
002526 
002530 
002532 
002540 
002544 
002550 
002554 
002556 
002560 
002566 
002572 
002576 
002602 
002604 
002606 
002614 



012777 
013777 
012737 
013704 
013705 
005037 
005037 
012737 
013701 
010137 



111137 
104401 
104401 
032777 
001021 
105737 
001416 
005237 
005201 
111137 
001004 
012701 
11 1137 
104401 
104401 
010137 
012737 
005737 
001131 



104422 
012737 
005077 
012737 
112714 
104421 
104412 
163737 
005237 
006137 
006137 
005000 
005001 
012777 
112714 
005037 
162700 
005601 
001374 
012737 
000432 



012356 
001234 
000340 
001220 
001224 
001102 
006614 
000001 
001244 
001236 



001250 
015261 
001250 
000200 

001241 



001250 

001240 
001250 
015302 
001250 
001244 
002664 
001100 



002702 
176542 
077777 
000016 



012010 
012012 
012012 
012012 



002616 
000101 
177776 
000001 



176710 
176704 
177776 



START: MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
MOV 



4'BADINT,@TAVEC 

P#TAPRI0,@TAVEC+2 

#340,@#PS 

@*TACSL.TACS 

@#TADBL,TADB 

i>#$TSTNM 

f#LOOPKEY 

#i,@#$MXCNT 

©>#DRVPNT,R1 

R1, DRIVE 



; SETUP TA11 TRAP VECTOR 



; LOCKOUT ALL I/O INT 

; SETUP TAGS 

; SETUP TAOB 

JZERO THE TEST NUMBER 

; CLEAR THE LOOP UNDER TTY CONTROL KEY 

-.SET FOR ONE ITERATION PER TEST 

;GET DRIVE POINTER 

;SET DRIVE TO POINTER 



;TYPE THE DRIVE(S) THAT WILL BE TESTED 



MOVE 

TYPE 

TYPE 

BIT 

BNE 

TSTB 

BEQ 

INC 

INC 

MOVB 

BNE 

MOV 

MOVB 

TYPE 

TYPE 

MOV 

MOV 

TST 



(R1),ii#CURDRV 

,MTSTDRV 

, CURDRV 

#SW07,@SWR 

2$ 

i»#DRVKEY+1 

2$ 

@#$MXCNT 

R1 

(R1),@#CURDRV 

1$ 

jlfDRVKEY.RI 

(R1),@#CURDRV 

,MANDRV 

, CURDRV 

R1 ,@#DRVPNT 

#5$,@#$LPADR 

@#$PASS 



;GET CURRENT DRIVE FOR TYPE-OUT 

JTYPE "TESTING DRIVE" 

;TYPE THE CURRENT DRIVE 

;LOCK ON ONE DRIVE? 

I BR IF YES 

;TWO DRIVES AVAILABLE? 

; BR IF NO 

;SET FOR TWO ITERATIONS PER TEST (ONE PER DRIVE) 

INCREMENT THE POINTER 

;SET SECOND DRIVE FOR TYPE-OUT 

;G0 TYPE IT 

: RESET POINTER 

;NOW GET THE SECOND DRIVE 

-.TYPE "AND DRIVE" 

;TYPE DRIVE 

;SAVE POINTER FOR NEXT TRIP THRU 

; SETUP THE SCOPE LOOP ADDRESS 

;ONCE ONLY 



001172 
012012 



000340 17777S 



BNE TST1 

;0N THE FIRST PASS OF THE PROGRAM DETERMINE THE AMOUNT OF TIME TO 
JWAIT ON A FLAG ( "READY "/"TRANSFER REQUEST") AND THE STALL TIME TO USE 
;WHEN STALLING AFTER A FUNCTION IS COMPLETED 

; SELECT DRIVE 

; SETUP ESCAPE ON ERROR 

;SET FOR NO REWIND ERRORS 

; SETUP IMPOSSIBLE COUNT 

; INSURE NO ERROR DUE TO «CLEAR LEADER" 

I GO TO BOT 

;NOW TIME A WFG 

;GET THE TIME IT TOOK TO WFG 

:MAKE IT BIGGER 



; SETUP TA11 VECTOR 

; START A "WFG" 

; ALLOW INTERRUPTS 

; START TIMING HOW LONG 

; IT TAKES TO WRITE A FILE GAP 

;LOCK OUT INTERRUPTS 
?IT TOOK TO LONG 



SELDRV 




MOV 


#FATAL,@#$ESCAPE 


CLR 


PRWDFLG 


MOV 


#~CBIT15,f>#MAXCNT 


MOVB 


#XRWND,(PTACS 


REWIND 




WFG 




SUB 


f»#HICNT,@#MAXCNT 


INC 


©iI'MAXCNT 


ROL 


P#MAXCNT 


ROL 


Pil'MAXCNT 


CLR 


RO 


CLR 


R1 


MOV 


ii'4$,®TAVEC 


MOVB 


*XWFGIINT.ENIGO,@TACS 


CLR 


@#PS 


SUB 


#1.R0 


SBC 


R1 


BNE 


3$ 


MOV 


*340,@ii»PS 


BR 


FATAL 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 29 
CZTADD.P11 23-MAR-7a 08:34 GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ ooas 



1256 


002616 


006201 




1257 


002620 


006000 




1258 


002622 


010037 


001264 


1259 


002626 


010137 


001266 


1260 


002632 


012777 


012356 176370 


1261 


002640 


105737 


001241 


1262 


002644 


001407 




1263 


002646 


104422 




1264 


002650 


005077 


176402 


1265 


002654 


112714 


000016 


1266 


002660 


104421 




1267 


002662 


104412 




1268 


002664 


005737 


001246 


1269 


002670 


002034 




1270 


002672 


005000 




1271 


002674 


006137 


012012 


1272 


002700 


000000 




1273 








1274 


002702 






1275 


002702 


104401 


002710 


1276 


002706 


000414 




1277 








1278 


002740 






1279 


002740 


104401 


001250 


1280 


002744 


013700 


000042 


1281 


002750 


001402 




1282 


002752 


000137 


006432 


1283 


002756 


000000 




1284 


002760 


000776 





5$: 



ASR 


R1 


ROR 


RO 


MOV 


RO.MSTALL 


MOV 


R1 ,@#STALL+2 


MOV 


#BADINT.@TAVEC 


TSTB 


P#DRVKEY+1 


BEQ 


5$ 


SELDRV 




CLR 


MWOFLG 


MOVB 


#XRWND,#TACS 


REWIND 




WFG 




TST 


@#ASKKEY 


BGE 


TST1 


CLR 


RO 


ROL 


@#IS/!AXCNT 


HALT 





jDIVIDE THE TIME BY 2 

;AND SAVE IT AS THE STALL TIME 

;SET TRAP CATCHER 

;TWO DRIVES? 

;BR IF NO 

•.SELECT THE OTHER DRIVE 

;SET REWIND FLAG 

; AVOID "CLEAR LEADER" ERROR 

;G0 TO BOT 

;G0 TO OXIDE 

;G0 START TESTING IF NO &IANUAL 

; OPERATIONS REQUESTED 

; INCREASE THE WAIT TIME 
JGIVE CONTROL TO THE OPERATOR 



TYPE ,65$ IJTYPE ASCII STRING 

BR 64$ '{GET OVER THE ASCII 



;;65$! 


.ASCII 


<15><12> 


64S: 








TYPE 


.CURDRV 




MOV 


i»#42,R0 




BEQ 


1$ 




JMP 


»i5>$ENDAD 


1$: 


HALT 






BR 


1$ 



:CURRENT DRIVE 

; CHECK FOR A MONITOR 

:BR IF NONE 

; LEAVE 

! ERROR OCCURRED BEFORE TESTING STARTED 

; HANGUP 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 30 

CZTADD.P11 23-MAR-78 08:34 T1 REWIND, WRITE, REWIND, READ 

REWIND.WRITE, REWIND. READ 



SEO 0030 



1285 








J • **** 




1286 








;*TEST 


1 


1287 








J J *«** 


«.******« 


1288 


002762 


000004 




TSTi: 


SCOPE 


1289 


002764 


012737 


003016 001172 




MOV 


1290 


002772 


104422 






SELDRV 


1291 


002774 


104421 






REWIND 


1292 


002776 


104413 


017012 




WRITE 


1293 


003002 


104421 






REWIND 


1294 


003004 


104414 


016756 




READ 


1295 


003010 


104423 






BLKCP^P 


1296 


003012 


016756 






RLNK1 


1297 


003014 


017012 






WLNK1 


1298 








J .***lS!*jS!Ji!*!jl**;Jn 


1299 








;*TEST 


2 


1300 








; .«***********^ 


1301 


003016 


000004 




TST2: 


SCOPE 


1302 


003020 


012737 


003052 001172 




MOV 


1303 


003026 


104422 






SELDRV 


1304 


003030 


104421 






REWIND 


1305 


003032 


104413 


017012 




WRITE 


1306 


003036 


104416 






BSBG 


1307 


003040 


104414 


016756 




READ 


1308 


003044 


104423 






BLKCMP 


1309 


003046 


016756 






RLNK1 


1310 


003050 


017012 






WLNK1 


1311 








J .****« 


■j!******^ 


1312 








;*TEST 


3 


1313 








5;****" 


**«***«!« 


1314 


003052 


000004 




TST3: 


SCOPE 


1315 


003054 


012737 


003106 001172 




MOV 


1316 


003062 


104422 






SELDRV 


1317 


003064 


104421 






REWIND 


1318 


003066 


104413 


017012 




WRITE 


1319 


003072 


104415 






BSFG 


1320 


003074 


104414 


016756 




READ 


1321 


003100 


104423 






BLKCMP 


1322 


003102 


016756 






RLNK1 


1323 


003104 


017012 






WLNK1 


1324 








; ****** 


******** 


1325 








;*TEST 


4 


1326 








• •)}<***» 


* * * ij; * * * * 


1327 


003106 


000004 




TST4: 


SCOPE 


1328 


003110 


012737 


003156 001172 




MOV 


1329 


0031 16 


104422 






SELDRV 


1330 


003120 


104421 






REWIND 


1331 


003122 


104413 


017012 




WRITE 


1332 


003126 


104421 






REWIND 


1333 


003130 


104414 


016756 




READ 


1334 


003134 


104423 






BLKCMP 


1335 


003136 


016756 






RLNK1 


1336 


003140 


01 7012 






WLNK1 


1337 


003142 


104416 






BSBG 


1338 


003144 


104414 


016756 




READ 


1339 


003150 


104423 






BLKCMP 


1340 


003152 


016756 






RLNK1 



********* ms *« * 



********* 



#TST2,$ESCAPE ;; ESCAPE TO TEST 2 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 

,WLNK1 ;WRITE ON TAPE 

;G0 TO BEGINNING OF TAPE 

.RLNKI ;READ 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 

TEST BSBG AFTER WRITE AND READ AFTER BSBG 

#TST3,SESCAPE |; ESCAPE TO TEST 3 ON ERROR 

: SELECT DRIVE FOR TESTING 
;G0 TO "BOT- 

.WLNK1 ;WRITE ONE BLOCK 

;BACK OVER THE BLOCK 

,RLNK1 ;NOW READ 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
JLINK TO THE WRITE BUFFER 

TEST BSFG AFTER WRITE AND READ AFTER BSFG 

#TST4,$ESCAPE ;| ESCAPE TO TEST 4 ON ERROR 

; SELECT DRIVE F^i? TESTING 
;G0 TO "BOT" 

.WLNKI IWRITE ONE BLOCK 

;BACK OVER THE BLOCK 

,RLNK1 ;NOW READ 

; COMPARE THE READ AND WRITE BUFFERS 
jLiNK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 

TEST BSBG AFTER READ 

#TST5,$ESCAPE JjESCAPE TO TEST 5 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 

,WLNK1 ;WRITE ONE BLOCK 

;G0 TO "BOT" 

,RLNK1 ;READ 

; COMPARE THE READ AND WRITE BUFFERS 
jLiNK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 
•,BACK UP 

.RLNKI I READ 

; COMPARE THE READ AND WRITE BUFFERS 
I LINK TO THE READ BUFFER 



TA11 MOTION TEST C2TAD~D MACY11 30A(10S2) 23"i;iAR"78 08:36 PAGE 31 

C2TADD.P11 ?3-WAR~7a 08:34 T4 TEST BSBG AFTER READ 



SEQ 0031 



SEO 0031 



1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
135B 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 



003154 017012 



003156 
003160 
0G3166 
003170 
003172 
003176 
003200 
003204 
003206 
003210 
003212 
003214 
003220 
003222 
003224 



003226 
003230 
003236 
003240 
003242 
003246 
003250 
003252 
003254 
003260 
003262 
003264 



003266 
003270 
003276 
003300 
003302 
003306 
003310 
003314 
003316 
003320 
003322 
003326 
003330 
003334 
003336 
003340 



000004 
012737 
104422 
104421 
104413 
104421 
104414 
104423 
016756 
017012 
104415 
104414 
104423 
016756 
017012 



000004 
012737 
104422 
104421 
104413 
104421 
104420 
104415 
104414 
104423 
016756 
017012 



000004 
012737 
104422 
104421 
104413 
104416 
104414 
104423 
016756 
01 7012 
104413 
104416 
104414 
104423 
016762 
017016 



003226 001172 



003266 001172 



003342 001172 

017012 

016756 



9TEST 5 

TSTS; SCOPE 
MOV 
SELDRV 
REWIND 
WRITE 
REWIND 
READ 
BLKCMP 
RLNK1 
WLNK1 
BSFG 
READ 
BLKCMP 
RLNK1 
WLNK1 

*TEST 6 

TSTS; SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
REWIND 
SFBG 
BSFG 
READ 
BLKCMP 
RLNK1 
WLNK1 

*TEST 7 

TST75 SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
BSBG 
READ 
BLKCMF 
RLNK1 
WLNK1 
WRITE 
BSBG 
READ 
BLKCMP 
RLNK2 
WLNK2 

"sTEST 10 



TEST BSFG AFTER READ 



;LINK TO THE WRITE BUFFER 



« !$: 1$ :j< )$! $: *!^ 



#TST6,$ESCAPE ; {ESCAPE TO TEST 6 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 

,WLNK1 ;WRITE A BLOCK 

;G0 TO "BOT" 

,RLNK1 ;READ A BLOCK 

; COMPARE THE REaO AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
;LINK to THE WRITE BUFFER 
;BACK OVER THE DATA 

,RLNK1 ;NOW READ THE DATA 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
rLINK To THE WRITE BUFFER 

TEST SFBG AFTER REWIND AND BSFG AFTER SFBG 

#TST7,$ESCAPE J ; ESCAPE TO TEST 7 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 

,WLNK1 ;WRITE ONE BLOCK Of DATA 

;G0 TO "BOT" 
; SPACE OVER THE DATA 
JBACK OVER THE DATA 

,RLNK1 ;READ THE BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
JLINK TO THE READ BUFFER 
jLiNK TO THE WRITE BUFFER 

TEST WRITE AFTER READ 



#TST10,$ESCAPE 

,WLNK1 
,RLPIK1 

,WLNK2 
,RLNK2 



iS!$«:i$i!^«s;ii^i^iii $$«$««*«« 



ESCAPE TO TEST 10 ON ERROR 

SELECT DRIVE FOR TESTING 
GO TO "CLEAR LEADER'' 
WRITE ONE BLOCK 
BACK OVER THE DATA BLOCK 

AND READ IT 
COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
WRITE A SECOND BLOCK 
BACK OVER IT 
AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 



****** * 

TEST WRITE AFTER WRITE AND READ. AFTER READ 



ZTADD 


P11 23-MAR-78 08:34 


1397 


003342 


000004 




1398 


003344 


012737 


003406 


1399 


003352 


104422 




1400 


003354 


104421 




1401 


003356 


104413 


017012 


1402 


003362 


104413 


017016 


1403 


003366 


104421 




1404 


003370 


104414 


016756 


1405 


003374 


104414 


016762 


1406 


003400 


104423 




1407 


003402 


016762 




1408 


003404 


017016 




1409 








1410 








1411 








1412 


003406 


000004 




1413 


003410 


012737 


003450 


1414 


003416 


104422 




1415 


003420 


104421 




1415 


003422 


104413 


017012 


1417 


003426 


104413 


017016 


1418 


003432 


104416 




1419 


003434 


104416 




1420 


003436 


104414 


016756 


1421 


003442 


104423 




1422 


003444 


016756 




1423 


003446 


017012 




1424 








1425 








1426 








1427 


003450 


000004 




1428 


003452 


012737 


003512 


1429 


003460 


104422 




1430 


003462 


104421 




1431 


003464 


104413 


017012 


1432 


003470 


104413 


017016 


1433 


003474 


104421 




1434 


003476 


104420 




1435 


003500 


104414 


016762 


1436 


003504 


104423 




1437 


003506 


016762 




1438 


003510 


017016 




1439 








1440 








1441 








1442 


003512 


000004 




1443 


003514 


012737 


003556 


1444 


003522 


104422 




1445 


003524 


104421 




1446 


003526 


104413 


017012 


1447 


003532 


104413 


017016 


1448 


003536 


104416 




1449 


003540 


104416 




1450 


003542 


104420 




1451 


003544 


104414 


016762 


1452 


003550 


104423 





TEST WRITE AFTER WRITE AND READ AFTER READ 



SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

REWIND 

READ 

READ 

BLKCMP 

RLNK2 

WLNK2 



JliTSTll.SESCAPE 



,WLNK1 
,WLNK2 



;; ESCAPE TO TEST 11 ON ERROR 

;SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
;WRITE TW0(2) BLOCKS 

;G0 TO BOT 

;READ BOTH BLOCKS 



,RLNK1 

,RLNK2 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
J LINK TO THE WRITE BUFFER 

*TEST 11 TEST BSBG AFTER BSBG 

J******************* **«!«<****************************** ********** 

TSTli: SCOPE 

MOV ^TSTia.SESCAPE ; {ESCAPE TO TEST 12 ON ERROR 
SELDRV ; SELECT DRIVE FOR TESTING 

REWIND ;G0 TO "CLEAR LEADER" 

WRITE ,WLNK1 JWRITE TW0(2) BLOCKS 

WRITE ,WLNK2 

BSBG ;BACK OVER THE 2ND BLOCK 

BSBG JBACK OVER THE 1ST BLOCK 

READ ,RLNK1 jREAD THE 1ST BLOCK 

BLKCMP ; COMPARE THE READ AND WRITE BUFFERS 

RLNK1 ;LINK TO THE READ BUFFER 

5^LNK1 ;LINK TO THE WRITE BUFFER 

********************************************************** 



«TEST 12 

; tji « «: « $ i» ]«: DC « :^ lii « ; 

TST12: SCOPE 
MOV 
SELDRV 
REWIND 
WRITE 
WRITE 
REWIND 
SFBG 
READ 
BLKCMP 
RLNK2 
WLNK2 



TEST READ AFTER SFBG 

*-)!**** ************************ «^^***:^^ 4:**^^^^^^^^^ 



#TST13,$ESCAPE 



llESCAPE TO TEST 13 ON ERROR 

;SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
JWRITE TW0(2) BLOCKS 



,WLNK1 

,WLNK2 

;BOT 

; SPACE OVER THE 1ST BLOCK 

,RLNK2 jREAD THE 2ND BLOCK 

{COMPARE THE READ AND -WRITE BUFFERS 
JLINK TO THE READ BUFFER 
JLINK TO THE WRITE BUFFER 

;*******«****«*****************«*******«******** **************** 

*TEST 13 TEST SFBG AFTER BSBG 

• ***«********,$**«**********«<**««******************««******** **:«i^ 

ST13: SCOPE 

#TST14,$ESCAPE }|ESCAPE TO TEST 14 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "CLEAR LEADER" 
,^LNK1 JWRITE TW0(2) BLOCKS 

,WLNK2 

JBACK SPACE OVES BOTH BLOCKS 



MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

BSBG 

BSBG 

SFBG 

READ 

BLKCMP 



; SPACE FWD OVER 1ST BLOCK 

;READ 2ND BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 33 
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SEQ 0033 



1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1402 
1483 
1484 
1485 
1486 
"1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 



003552 016762 
003554 017016 



003556 
003560 
003566 
003570 
003572 
003576 
003602 
003604 
003606 
003612 
003614 



003620 

003622 

003630 

003632 

003634 

003640 

003644 

003646 . 

003650 

003654 

003656 

003660 

003662 

003666 

003670 

003672 

003674 

003676 

003702 

003704 

003710 

003712 

003714 

003716 

003720 

003724 

003726 

003732 

003734 

003736 

003740 

003742 

003746 

003750 

003754 

003756 



000004 
012737 
1.04422 
104421 
104413 
104413 
104416 
104416 
104414 
104423 
016756 
017012 
104414 
104423 
016762 
017016 
104416 
104413 
104416 
104414 
104423 
016766 
017022 
104416 
104413 
104416 
104414 
104423 
016772 
0^7026 
104416 
104413 
104416 
104414 
104423 
016762 



000004 

012737 003620 001172 

104422 

104421 

104413 017012 

104413 017016 
104415 
104420 

104414 016762 
104423 
016762 



TEST 
TST14: 



003616 017016 



RLNK2 
WLNK2 

14 

SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WRITE 

BSFG 

SFBG 

READ 

BLKCMP 

RLNK2 

WLNK2 



{LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 

TEST SFBG AFTER BSFG 



#TST15.$ESCAPE 



,WLNK1 
,felLNK2 



{{ESCAPE TO TEST 15 ON ERROR 

{SELECT DRIVE FOR TESTING 
{GO TO "CLEAR LEADER" 
{WRITE TWO BLOCKS 



004012 001172 



017012 
017016 





{«TEST 15 


REWRIT 




fsTIS: SCOPE 




MOV 


#TST16 


SELDRV 




REWIND 




WRITE 


.WLNKI 


WRITE 


,WLNK2 


BSBG 




BSBG 




READ 


,RLMK1 


BLKCMP- 




RLNK1 




WLNK1 




READ 


,RLNK2 


BLKCMP 




RLNK2 




WLNK2 




BSBG 




WRITE 


,WLNK3 


BSBG 




READ 


,RLNK3 


BLKCMP 




RLNK3 




WLNK3 




BSBG 




WRITE 


,WLNK4 


BSBG 




READ 


,RLNK4 


BLKCMP 




RLNK4 




WLNK4 




BSBG 




WRITE 


,WLNK2 


BSBG 




READ 


,RLNK2 


BLKCMP 




RLNKa 





{SPACE REV FILE 

{SPACE FWD BLOCK 

{READ THE 2ND BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

«i|tiJisSt*******«**#***** **************** 

E THE LAST BLOCK 3 TIMES AFTER DOING A WRITE AFTER WRITE 

J{! Ijl ** ****** 1* $***«************************** * 

{{ESCAPE TO TEST 16 ON ERROR 

{SELECT DRIVE FOR TESTING 
•GO TO "CLEAR LEADER" 
{WRITE 2 BLOCKS 

BACK OVER BOTH OF THEl 

READ THE FIRST ONE 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

NOW READ THE 2ND ONE 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

BACK OVER THE 2ND ONE 

WRITE OVER THE 2ND BLOCK 

NOW BACK UP AND 

READ IT 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

BACK OVER IT AGAIN 

AND WRITE OVER IT AGAIN 

BACK UP AND 

READ THE BLOCK 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

BACK OVER THE BLOCK AGAIN 

AND WRITE OVER IT AGAIN 

NOW BACK UP 

AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 



SEQ 0034 



TA11 MOTION TEST CZTAD-D SSACYll 30A(1052) 23-MAR-7B 08:36 PAGE 34 

CZTADD.P11 23-Mi^R-78 08:34 Tl5 REWRITE THE LAST BLOCK 3 TIDIES AFTER DOING A WRITE AFTER WRITE 

ILINK TO THE WRITE BUFFER 
;BACK OVER BOTH BLOCKS 

;AND READ THE 1ST ONE 

; COMPARE THE READ AND WRITE BUFFERS 

;LINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 

;AND THE 2ND ONE 

; COMPARE THE READ AND WRITE BUFFERS 

;LINK to THE READ BUFFER 

;LINK to THE WRITE BUFFER 

l***********:^******!^*** ********** 

BLOCK 3 TIMES AFTER DOING A WRITE AFTER READ 



SEQ 0034 



1509 


003760 


017016 




1510 


003762 


104416 




1511 


003764 


104416 




1512 


003766 


104414 


016756 


1513 


003772 


104423 




1514 


003774 


016756 




1515 


003776 


017012 




1516 


004000 


104414 


016762 


1517 


004004 


104423 




1518 


004006 


016762 




1519 


004010 


017016 




1520 








1521 








1522 








1523 


004012 


000004 




1524 


004014 


012737 


004170 


1525 


004022 


104422 




1526 


004024 


104421 




1527 


004026 


104413 


017012 


1528 


004032 


104416 




1529 


004034 


104414 


016756 


1530 


004040 


104423 




1531 


004042 


016756 




1532 


004044 


017012 




1533 


004046 


104413 


017016 


1534 


004052 


104416 




1535 


004054 


104414 


016762 


1536 


004060 


104423 




1537 


004062 


016762 




1538 


004064 


017016 




1539 


004066 


104416 




1540 


004070 


104413 


017026 


1541 


004074 


104416 




1542 


004076 


104414 


016772 


1543 


004102 


104423 




1544 


004104 


016772 




1545 


004106 


017026 




1546 


0041 10 


104416 




1547 


0041 12 


104413 


017032 


1548 


0041 16 


104416 




1549 


004120 


104414 


016776 


1550 


004124 


104423 




1551 


004126 


016776 




1552 


0041 30 


01 7032 




1553 


004132 


104416 




1554 


004134 


104413 


017022 


1555 


004140 


104416 




1556 


004142 


104416 




1557 


004144 


104414 


016756 


1558 


004150 


104423 




1559 


004152 


016756 




1560 


004154 


017012 




1561 


004156 


104414 


016766 


1562 


004162 


104423 




1563 


004164 


016766 




1554 


004166 


017022 





001172 



WLNK2 




BSBG 




BSBG 




READ 


, RLNKI 


BLKCMP 




RLNKI 




WLNK1 




READ 


,RLNK2 


BLKCMP 




RLNK2 




WLNK2 




• J************* 




;*TEST 16 


REWRITE THE LAST 




TSTIS: SCOPE 




MOV 


#TST17,$ESCAPE 


SELDRV 




REWIND 




WRITE 


,WLNK1 


BSBG 




READ 


, RLNKI 


BLKCMP 




RLNKI 




WLNK1 




WRITE 


,^IHK2 


BSBG 




READ 


,RLNK2 


BLKCMP 




RLNK2 




WLNK2 




BSBG 




WRITE 


,lf!lLNK4 


BSBG 




READ 


,RLNK4 


BLKCMP 




RLNK4 




WLNK4 




BSBG 




WRITE 


,WLNK5 


BSBG 




READ 


,RLNK5 


BLKCMP 




RLNK5 




WLNK5 




BSBG 




WRITE 


,WLHK3 


BSBG 




BSBG 




READ 


, RLNKI 


BLKCMP 




RLNKI 




WLNK1 




READ 


,RLNK3 


BLKCMP 




RLNK3 




WLNK3 





TO TEST 17 ON ERROR 
SELECT DRIVE FOR TESTING 
GO TO "CLEAR LEADER- 
WRITE A BLOCK OF DATA 
BACK OVER IT 
AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
WRITE 2ND BLOCK 
BACK OVER IT 
AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
BACK OVER IT AND 
WRITE OVER 2ND BLOCK 
BACK UP AND ' 
READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
BACK OVER IT AGAIN 
REWRITE 2ND BLOCK 

JREAD 2ND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 

JLINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 

;BACK OVER IT AGAIN 

-.WRITE ANOTHER BLOCK OVER IT 

;BACK OVER 2 BLOCKS 

;READ THE 1ST BLOCK 

I COMPARE THE READ AND WRITE BUFFERS 

;LINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 

;READ 2ND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 

;LINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 



TA11 MOTION TEST CZTAD-D I^ACYII 30A(1052) 23-"MAR"7a 08:36 PAGE 35 

CZTADD.P11 23~MAR~78 08:34 T17 TEST WFG AFTER WRITE AND BSF6 AFTER WFG 



SEQ 003S 



SEQ 0035 



565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
6 



9 

620 



004342 
004344 
004352 
004354 
004356 



004170 
004172 
004200 
004202 
004204 
004210 
004212 
004214 
004220 
004222 
004224 



004226 
004230 
004236 
004240 
004242 
004246 
004250 
004252 
004256 
004260 
004262 



004264 
004266 
004274 
004276 
004300 
004304 
004306 
004312 
004314 
004316 
004320 
004322 
004326 
004330 
004334 
004336 
004340 



004226 0011 7S 



004264 001172 



000004 
012737 
104422 
104421 
104413 
104412 
104415 
104414 
104423 
016756 
017012 



000004 
012737 
104422 
104421 
104413 
104412 
104416 
104414 
104423 
016756 
017012 



000004 
012737 
104422 
104421 
104413 
104421 
104414 
104423 
016756 
017012 
104412 
104413 
104416 
104414 
104423 
016762 
017016 



000004 

012737 004420 001172 

104422 

104421 

104413 017012 



*TEST 



004342 001172 



017016 
016762 



J *«****!}:!jl*lJ:*!Sl*!*l«t!S!!J!*lSl***HtI^l!s*!Jtl^!Sl^ai****************** ************** 

*TEST 17 TEST WF6 AFTER WRITE AND BSFG AFTER WFG 

TST17S SCOPE 

#TST20,SESCAPE j; ESCAPE TO TEST 20 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 

,Wl.NK1 ;WRITE ONE BLOCK 

; FOLLOWED BY A FILE GAP 
;BACK OVER THE DATA BLOCK 

, RLNKI sREAD THE DATA 

;COMPARE THE READ AND WRITE BUFFERS 
SLINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 

20 TEST BSBG AFTER WFG 

SCOPE 

#TST21 ,$ESCAPE j| ESCAPE TO TEST 21 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO BOT 

,WLHK1 ; WRITE ONE BLOCK OF DATA 

;WRITE A FILE GAP 
;BACK OVER THE DATA 

, RLNKI I READ ONE BLOCK 

;COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 

I ****iSi*^ *!**** 151**151******* ******* 181 *!j!**i8i^****iS!******^*****i5!*4i*«is4:i^*i8! 

*TEST 21 TEST WRITE AFTER WFG 

J**)jt!{!*!^*:§!*!(::4l********;J,S5l){ilJS**l5,jjjs{;lJ|*^**l^*j{.;{j^^^,jI,f,i{,,jj^^*:j.jjI,J;^,{,^lj,j^^^^5j,^,JS*38! 

TST21; SCOPE 

#TST22,$ESCAPE ;| ESCAPE TO TEST 22 ON ERROR 

JSELECT DRIVE FOR TESTING 
;G0 TO BOT 

,MLUKi ;WRITE ONE BOCK 

;G0 TO BOT 

.RLNKI ;READ ONE BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
;i.lNK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 
JWRITE A FILE GAP 

.WLNKS JWRITE ANOTHER BLOCK 

jBACK OVER THE LAST BLOCK 

,RLi*IK2 JREAD THE SECOND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
I LINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 

J«**l!!***l5l***!5,ljj*^**l{,^,ji,^^*^^^^^^l^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

*TEST 22 TEST WFG AFTER READ AND BSFG AFTER WRITE 

•*i!l***lj!*****ijI!J!*^,$l*^^*l{.S^*^^*^,j,^^^^^5^^^^^^^^^^^^^^^^^^^^^lj,^j^^^^^^,j, 

TST22: SCOPE 

MOV i5'TST23,iESCAPE ;; ESCAPE TO TEST 23 ON ERROR 



MOV 

SELDRV 

REWIND 

WRITE 

WFG 

BSFG 

READ 

BLKCMP 

RLNKI 

WLNK1 



MOV 

SELDRV 

REWIND 

WRITE 

WFG 

BSBG 

READ 

BLKCMP 

RLNKI 

WLNK1 



MOV 

SELDRV 

REWIND 

WRITE 

REWIND 

READ 

BLKCMP 

RLNKI 

WLNK1 

WFG 

WRITE 

BSBG 

READ 

BLKCMP 

RLNK2 

WLNK2 



SELDRV 
REWIND 
WRITE ,«LNK1 



SELECT DRIVE FOR TESTING 
GO TO "BOT" 
^RITE ONE BLOCK 
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CZTADD.P11 23-MAR-78 08:34 T22 TEST WFG AFTER READ AND BSFG AFTER WRITE 



SEQ 0036 



1621 


004362 


104421 






REWIND 




1622 


004364 


104414 


016756 




READ 


,RLNK1 


1623 


004370 


104423 






BLKCMP 




1624 


004372 


016756 






RLNK1 




1625 


004374 


017012 






WLNK1 




1626 


004376 


104412 






WFG 




1627 


004400 


104413 


017016 




WRITE 


,WLNK2 


1628 


004404 


104415 






BSFG 




1629 


004406 


104414 


016762 




READ 


,RLNK2 


1630 


004412 


104423 






BLKCMP 




1631 


004414 


016762 






RLNK2 




1632 


004416 


017016 






WLNK2 




1633 








; •***!$ 




1634 








;*TEST 


23 


TEST SFFG AFTER 


1635 








J ;*«** 




1636 


004420 


000004 




TST23I 


SCOPE 




1637 


004422 


012737 


004464 001172 




MOV 


#TST24,$ESCAPE 


1638 


004430 


104422 






SELDRV 




1639 


004432 


104421 






REWIND 




1640 


004434 


104413 


017012 




WRITE 


,WLNK1 


1641 


004440 


104412 






WFG 




1642 


004442 


104413 


017016 




WRITE 


,WLNK2 


1643 


004446 


104421 






REWIND 




1644 


004450 


104417 






SFFG 




1645 


004452 


104414 


016762 




READ 


,RLNK2 


1646 


004456 


104423 






BLKCMP 




1647 


004460 


016762 






RLNK2 




1648 


004462 


017016 






WLNK2 




1649 










1650 








«TEST 


24 


TEST BSBG AFTER 


1651 












1652 


004464 


000004 


TST24: 


SCOPE 




1653 


004466 


012737 


004532 001172 




MOV 


i§'TST25,$ESCAPE 


1654 


004474 


104422 






SELDRV 




"1655 


004476 


104421 






REWIND 




1656 


004500 


104413 


017012 




WRITE 


,WLNK1 


1657 


004504 


104412 






WFG 




1658 


004506 


104413 


017016 




WRITE 


,WLNK2 


1659 


004512 


104421 






REWIND 




1660 


004514 


104417 






SFFG 




1661 


004516 


104416 






BSBG 




1662 


004520 


104414 


016756 




READ 


,RL.MK1 


1663 


004524 


104423 






BLKCMP 




1664 


004526 


016756 






RLNK1 




1665 


004530 


017012 






WLNK1 




1666 








;****« 






1667 








*TEST 


25 


TEST SFBG AFTER 


1668 








!***«« 




1669 


004532 


000004 


■i 


ST25: 


SCOPE 




1670 


004534 


012737 


004606 001172 




MOV 


^TST26,$ESCAPE 


1671 


004542 


104422 






SELDRV 




1672 


004544 


104421 






REWIND 




1673 


004546 


104413 


017012 




WRITE 


,WLNK1 


1674 


004552 


104412 






WFG 




1675 


004554 


104413 


017016 




WRITE 


,WLNK2 


1676 


004560 


104413 


017022 




WRITE 


,WLNK3 



;G0 TO "BOT" 

;READ ONE BLOCK 

ICOMPARE THE READ AND WRITE BUFFERS 

JLINK TO THE READ BUFFER 

;LINK TO THE WRITE BUFFER 

;WRITE A FILE GAP' 

JWRITE A BLOCK 

;BACK OVER THE DATA 

;READ SECOND BLOCK 

; COMPARE THE READ AND WHITE BUFFERS 

;LINK TO THE READ BUFFER 

;LINK TO THE WRITZ BUFFER 

REWIND AND READ AFTER SFFG 

;; ESCAPE TO TEST 24 ON ERROR 

;SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 
JWRITE A BLOCK OF DATA 
SWRITE A FILE GAP 
; WRITE A BLOCK OF DATA 
;G0 TO "BOT" 
; SPACE OVER FIRST BLOCK 
JREAD THE 2ND BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
SLINK TO THE WRITE BUFFER 
********************************** 
SFFG 

I ; ESCAPE TO TEST 25 ON ERROR 

5 SELECT DRIVE FOR TESTING 

;G0 TO "BOT" 

; WRITE DATA 

;WRITE FILE GAP 

;WRITE DATA 

J GO TO "BOT" 

JSPACE OVER FIRST FILE 

; BACKUP TO FIRST BLOCK 

;READ THE BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 

I LINK TO THE READ BUFFE^ 

;LINK TO THE WRITE BUFFER 

***«********:}.*:j!**:j,*S!^^#:j,^^^jj,j^,{,^;4,^ 

SFFG 

***********!j,^*^*i!,4,,j,*j,^^^^^^^*sj,^^^ 

J I ESCAPE TO TEST 26 ON ERROR 

JSELECT DRIVE FOR TESTING 

;G0 TO "BOT« 

;WRITE A BLOCK OF DATA 

•.FOLLOWED BY A FILE GAP 

; FOLLOWED BY 2 BLOCKS OF DATA 
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SEQ 0037 



SEQ 0037 



1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 



004564 
004566 
004570 
004572 
004574 
004600 
004602 
004604 



004606 
004610 
004616 
004620 
004622 
004626 
004630 
004634 
004640 
004644 
004646 
004650 
004652 
004654 
004660 
004662 
004664 



004666 
004670 
004676 
004700 
004702 
004706 
004710 
004714 
004716 
004720 
004722 
004724 
004726 
004732 
004734 
004736 



004740 
004742 
004750 
004752 
004754 
004760 



104421 
104417 
104420 
104416 
104414 
104423 
016762 
017016 



000004 

012737 004666 001172 

104422 

104421 

104413 017012 

104412 

104413 017016 

104413 017022 

104413 017026 
104421 
104417 
104420 
104420 

104414 016772 



j«*** 
*TEST 



REWIND ;G0 TO ''BOT" 

SFFG ;SPACE OVER 1ST FILE 

SFBG ; SPACE OVER BLOCK 

BSBG :BACK OVER THE BLOCK 

READ ,RLNK2 ;READ THE LAST BLOCK 

BLKCMP ; COMPARE THE READ AND WRITE BUFFERS 

RLNK2 ;LINK to THE READ BUFFER 

^^LNK2 JLINK TO THE WRITE BUFFER 

k********l{!***^*****,S.^***,$lj,!j,^|jS!Jt5^^^i{:^^^^^^;j,^^5j,^^^^i;j,^jj,^^^^^^j|,^ 

26 TEST SFBG AFTER SFBG 

j«******:^i3i**********;$,*****,j,*,j:*;^4,Us**s<***«****************>!i*«f 
SCOPE 

#TST27,$ESCAPE j -.ESCAPE TO TEST 27 ON ERROR 

: SELECT DRIVE FOR TESTINS 

:G0 TO "BOT" 
.WLNKI :WRITE A 

IWRITE A 

;WRITE 3 



104423 
016772 
017026 



000004 

012737 004740 

104422 

104421 

104413 017012 

104412 

104413 017016 
104421 
104417 
104420 
104415 
104415 

104414 016756 
104423 
016756 
017012 



000004 

012737 00501S 001172 

104422 

104421 

104413 017012 

104412 



MOV 

SELDRV 

REWIND 

WRITE 

WFG 

WRITE 

WRITE 

WRITE 

REWIND 

SFFG 

SFBG 

SFBG 

READ 

BLKCMP 

RLNK4 

WLNK4 



,WLNK2 
,WLNK3 
,WLNK4 



BLOCK OF DATA 
FILE GAP 
BLOCKS OF DATA 



J GO TO "BOT" 

•.SPACE OVER THE 1ST FILE 

; SPACE OVER TWO BLOCK 



I**** 
^TEST 



*TEST 

; **** 

TST30S 



,5?LNK4 -.READ LAST BLOCK OF DATA 

JCOMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
I LINK TO THE WRITE BUFFER 

Sr*******!}!**************!^!*,^********************************* 

27 TEST BSFG AFTER SFBG AND BSFG AFTER BSFG 

il * * * * * * * *_ J^ * * * * IjS * * * * * j^ * * 1^ JJ, ^ S^ Ij, 4, ^ 4, ,}, ^ ^ ^ 5j, ^ ,^ 5j. ^ ^ jj, ^ ^ ^ ij, ^ ^ ^ ,^ ^ ^ ^ Ij, ^ ^ ^ ^ 1^ 

SCOPE 

MOV #TST30,$ESCAPE J | ESCAPE TO TEST 30 ON ERROR 

SELDRV ; SELECT DRIVE FOR TESTING 

REWIND 5 GO TO "BOT" 

WRITE .WLNKI ;WRITE ONE BLOCK OF DATA 

WFG ;WRITE A FILE GAP 

WRITE ,WLNK2 ;WRITE A BLOCK OF DATA 

REWIND 5G0 TO "BOT" 

SFFG ;SPACE OVER 1ST FILE 

iP|G J SPACE OVER UT Bmm OF WO FILf 

BSFG JBACK TO BEGINNNG OF 2ND FILE 

BSFG ;BACK TO BEGINNING OF 1ST FILE 

READ ,RLNK1 ; READ 1ST BLOCK OF 1ST FILE 

BLKCMP JCOMPARE THE READ AND WRITE SUFFERS 

RLNK1 JLINK TO THE READ BUFFER 

WLNK1 ;LINK TO THE WRITE BUFFER 

!********(^****;{,*$*>J,****|^»8,,jl********************************* 

30 TEST BSBG THRU A FILE GAP 

!*********^**:^,^^^5j,^^^,^,j,^^^^^^^^^^5j,^^^^^^^j^^^^^^^^^^^^l^j5,^^g^^ 

SCOPE 

MOV #TST31,$ESCAPE ;| ESCAPE TO TEST 31 ON ERROR 

SELDRV 5 SELECT DRIVE FOR TESTING 

REWIND ;G0 TO "BOT" 

WRITE ,te?LNK1 ;WRITE ONE BLOCK OF DATA 

WFG jWRIT£ A FILE GAP 
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SEQ 0038 



SEQ 0038 



1733 


004762 


104413 


017016 




WRITE 


,WLNK2 


1734 


004766 


104413 


017022 




WRITE 


,WLNK3 


1735 


004772 


104421 






REWIND 




1736 


004774 


104417 






SFFG 




1737 


004776 


104420 






SFBG 




1738 


005000 


104416 






BSBG 




1739 


005002 


104416 






BSBG 




1740 


005004 


104414 


016756 




READ 


,RLNK1 


1741 


005010 


104423 






BLKCMP 




1742 


005012 


016756 






RLNK1 




1743 


005014 


017012 






WLNK1 




1744 
1 745 
















'j^TEST 


31 


TEST BSFG AFTER 


1746 








• .^l*****^*))!**** 




1747 


005016 


000004 




TST31: 


SCOPE 




1748 


005020 


012737 


005070 001172 




MOV 


#TST32,$ESCAPE 


1749 


005026 


104422 






SELDRV 




1750 


005030 


104421 






REWIND 




1751 


005032 


104413 


017012 




WRITE 


,I^LNK1 


1752 


005036 


104412 






WFC 




1753 


005040 


104413 


017016 




WRITE 


,^LNK2 


1754 


005044 


104421 






REWIND 




1755 


005046 


104417 






SFFG 




1756 


005050 


104420 






SFBG 




1757 


005052 


104416 






BSBG 




1758 


005054 


104415 






BSFG 




1759 


005056 


104414 


0167B6 




READ 


,RLNK1 


1760 


005062 


104423 






BLKCMP 




1761 


005064 


016756 






RLNK1 




1762 


005066 


017012 






WLNK1 




1 763 












1764 








;*TEST 


32 


TEST BSBG AFTER 


1 765 










1766 


005070 


000004 




■rsT32; 


SCOPE 




1767 


005072 


012737 


005134 001172 




MOV 


i5?TST33,$ESCAPE 


1768 


005100 


104422 






SELDRV 




1769 


005102 


104421 






REWIND 




1770 


005104 


104413 


017012 




WRITE 


,WLNK1 


1771 


0051 10 


104412 






WFG 




1772 


005112 


104413 


017016 




WRITE 


,WLNK2 


1773 


005116 


104415 






BSFG 




1774 


005120 


104416 






BSBG 




1775 


005122 


104414 


016756 




READ 


,RLNK1 


1776 


005126 


104423 






BLKCMP 




1777 


005130 


016756 






RLNK1 




1778 


005132 


017012 






WLNK1 




1 779 








. .*«** 




1780 








;*TEST 


33 


TEST BSFG AFTER 


1 781 










1782 


005134 


000004 




TST33S 


SCOPE 




1783 


005136 


012737 


005216 001172 




MOV 


#TST34,$ESCAPE 


1784 


005144 


104422 






SELDRV 




1785 


005146 


104421 






REWIND 




1786 


005150 


104413 


017012 




WRITE 


,WLNK1 


1787 


005154 


104412 






WFG 




1788 


005156 


104413 


017016 




WRITE 


,wy4Ka 



; WRITE TWO BLOCKS OF DATA 



;G0 TO "BOT" 

; SPACE OVER 1ST FILE 

; SPACE OVER 1ST BLOCK OF aND FILE 

;BACK OVER 1 BLOCK 

JBACK OVER 1 BLOCK 

;REAO 

; COMPARE THE READ AND WRITE BUFFERS 

JLINK TO THE READ BUFFER 

JLINK TO THE WRITE BUFFER 

BSBG 

;; ESCAPE TO TEST 32 ON ERROR 

{SELECT DRIVE FOR TESTING 
;G0 TO "BOT" 

;WRITE ONE BLOCK OF DATA 
;WRITE A FILE GAP 
; WRITE A BLOCK QF DATA 
;G0 TO "BOT" 
; SPACE OVER FILE 

; SPACE OVER 1ST BLOCK OF 2ND FILE 
jBACK OVER BLOCK 
{BACK OVER FILE 
;READ 1ST BLOCK ON TAPE 
{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 
********************************** 
BSFG 

J {ESCAPE TO TEST 33 ON ERROR 

{SELECT DRIVE FOR TESTING 

{GO TO "CLEAR LEADER" 

{WRITE BLOCK 

{WRITE A FILE GAP 

{FOLLOW WITH ANOTHER BLOCK 

{BACK UP 1 FILE 

{BACK UP 1 BLOCK 

{READ 1ST BLOCK ON TAPE 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

SFFG AND SFFG AFTER READ 

{{ESCAPE TO TEST 34 ON ERROR 

{SELECT DRIVE FCR TESTING 
{GO TO "BOT- 
{ WRITE A BLOCK OF DATA 
{WRITE A FILE GAP 
{WRITE A BLOCK OF DATA 
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SEQ 0039 



SEO 0039 



1789 


005162 


104421 




1790 


005164 


104417 




1791 


005166 


104415 




1792 


005170 


104414 


016756 


1793 


005174 


104423 




1794 


005176 


016756 




1795 


005200 


017012 




1796 


005202 


104417 




1797 


005204 


104414 


016762 


1798 


005210 


104423 




1799 


005212 


016762 




1800 


005214 


017016 




1801 








1802 








1803 








1804 


005216 


000004 




1805 


005220 


012737 


005274 


1806 


005226 


104422 




1807 


005230 


104421 




1808 


005232 


104413 


017012 


1809 


005236 


104412 




1810 


005240 


104413 


017016 


1811 


005244 


104412 




1812 


005246 


104413 


017022 


1813 


005252 


104412 




1814 


005254 


104421 




1815 


005256 


104417 




1816 


005260 


104417 




1817 


005262 


104414 


016766 


1818 


005266 


104423 




1819 


005270 


016766 




1820 


005272 


017022 




1821 








1822 








1823 








1824 


005274 


000004 




1825 


005276 


012737 


005350 


1826 


005304 


104422 




1827 


00530G 


104421 




1828 


005310 


104413 


017012 


1829 


005314 


104413 


017016 


1830 


005320 


104412 




1831 


005322 


104413 


017022 


1832 


005326 


104412 




1833 


005330 


104421 




1834 


005332 


104420 




1835 


005334 


104417 




1836 


005336 


104414 


016766 


1837 


005342 


104423 




1838 


005344 


016766 




1839 


005346 


017022 




1840 








1841 








1842 








1843 


005350 


000004 




1844 


005352 


012737 


005422 



REWIND 

SFFG 

BSFG 

READ 

BLKCMF 

RLNK1 

WLNK1 

SFFG 

READ 

BLKCS4P 

RLNK2 

WLNK2 

{*T£ST 34 

TST34S SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WFG 
WRITE 
WFG 
WRITE 
WFG 
REWIND 
SFFG 
SFFG 
READ 
BLKCMP 
RLNK3 
WLNK3 

I 4f «i « « « « ,;, ^ ^ 4! « :$ i$i 

*TEST 35 

TST35: SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WRITE 
WFG 
WRITE 
WFG 
REWIND 
SFBG 
SFFG 
READ 
BLKCMP 
RLNK3 
WLNK3 
• **«** ^ :j« #**** i 

*TEST 36 

TST36: SCOPE 
MOV 



{GO TO "BOT" 

{SPACE OVER 1ST FILE 

{BACK TO BEGINNING OF 1ST FILE 

,RLHK1 {READ FIRST DATA BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 
{SPACE TO BEGINNING ON 2ND FILE 

,RLHK2 {READ 1ST BLOCK OF 2ND FILE 

{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 

TEST SFFG AFTER SFFG 

#TST35,$ESCAPE {{ESCAPE TO TEST 35 ON ERROR 

{SELECT DRIVE FOR TESTING 

{GO TO BOT 
,WLNK1 {WRITE A BLOCK 

{WRITE FILE GAP 
,V^LHK2 {WRITE A BLOCK 

{WRITE A FILE GAP 
,fe(LMK3 'rWRITE A BLOCK 

{WRITE A FILE GAP 

•GO TO "BOT" 

{SPACE OVER 1ST FILE 

{SPACE OVER 2ND FILE 
,RLNK3 {READ BLOCK OF 3RD FILE 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

TEST SFFG AFTER SFSG 



j¥TST36,$ESCAPE 



,WLNK1 
,WLMK2 



{ESCAPE TO TEST 36 ON ERROR 

{SELECT DRIVE FOR TESTING 
{GO TO "BOT- 
{WRITE A BLOCK 
{WRITE A BLOCK 
{WRITE A GAP 

,WLNK3 {WRITE A BLOCK 

{WRITE A GAP 
{GO TO «BOT" 

{SPACE OVER THE 1ST BLOCK(AND 1ST FILE) 
{SPACE TO BEGINNING OF 2N0 FILE 

,RLMK3 {READ 1ST BLOCK OF 2RD FILE 

{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ. BUFFER 
{LINK TO THE WRITE BUFFER 

TEST WFG AFTER SFBG 

#TST37,$ESCAPE {{ESCAPE TO TEST 37 ON ERROR 
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SEO 0040 



1845 


005360 


104422 




1846 


005362 


104421 




1847 


005364 


104413 


017012 


1848 


005370 


104413 


017016 


1849 


005374 


104421 




1850 


005376 


104420 




1851 


005400 


104412 




1852 


005402 


104413 


017022 


1853 


005406 


104415 




1854 


005410 


104414 


016766 


1855 


005414 


104423 




1856 


005416 


016766 




1857 


005420 


017022 




1858 








1859 








1860 








1861 


005422 


000004 




1862 


005424 


012737 


005474 


1863 


005432 


1044P2 




1864 


005434 


104421 




1865 


005436 


104413 


017012 


1866 


005442 


104413 


017016 


1867 


005446 


104421 




1868 


005450 


104420 




1869 


005452 


104413 


017022 


1870 


005456 


104415 




1871 


005460 


104420 




1872 


005462 


104414 


016766 


1873 


005466 


104423 




1874 


005470 


016766 




1875 


005472 


017022 




1876 








1877 








1878 








1879 


005474 


000004 




1880 


005476 


012737 


005564 


1881 


005504 


104422 




1882 


005506 


104421 




1883 


005510 


104413 


017012 


1884 


005514 


104412 




1885 


005516 


104413 


017016 


1886 


005522 


104412 




1887 


005524 


104413 


017022 


1888 


005530 


104412 




1889 


005532 


104421 




1890 


005534 


104417 




1891 


005535 


104417 




1892 


005540 


104417 




1893 


005542 


104415 




1894 


005544 


104415 




1895 


005546 


104415 




1896 


005550 


104417 




1897 


005552 


104414 


016762 


1898 


005556 


104423 




1899 


005560 


016762 




1900 


005562 


017016 





SELDRV 

REWIND 

WRITE 

WRITE 

REWIND 

SFBG 

WFG 

WRITE 

BSFG 

READ 

BLKCMP 

RLNK3 

WLNK3 

*TEST 37 
.**** ^ ******* * 
TST37'. SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WRITE 
REWIND 
SFBG 
WRITE 
BSFG 
SFBG 
READ 
BLKCMP 
RLNK3 
WLNK3 

*TEST 40 



;SELECT DRIVE FOR TESTING 
jWRITE 2 BLOCKS 



,WLNK1 

,WLNK2 

;G0 TO "BOT" 

;GET OVER THE 1ST BLOCK 

I WRITE A GAP OVER 2ND BLOCK 

,WLNK3 ;WRITE A BLOCK 

;BACK OVER THE BLOCK 

,RLNK3 ;AND READ IT 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 

«i«)8:i^****«*****>g******** ********** **************** 

TEST WRITE AFTER SFBG 

I********************************** **************** 



#TST40,SESCAPE 



,WLNK1 
,WLNK2 



J ESCAPE TO TEST 40 ON ERROR 

; SELECT DRIVE FOR TESTING 
;G0 TO BOT 
;WRITE 2 BLOCK 



J GO TO BOT 

; SPACE OVER 1ST BLOCK 

,WLNK3 ; WRITE OVER 2ND BLOCK 

;G0 TO BEGINNING OF FILE 
; SPACE OVER 1ST BLOCK 

,RLNK3 ;READ THE NEW 2ND BLOCK 

{COMPARE THE READ AND WRITE BUFFERS 
•.LINK TO THE READ BUFFER 
JLINK TO THE WRITE BUFFER 

^jS.***************************************** 

BLOCK FILES' MULTI SPACING & TEST SFFG AFTER BSFG 



******** 
3 ONE 

!^**!{I**** 



TST40: 



SCOPE 

MOV 

SELDRV 

REWIND 

WRITE 

WFG 

WRITE 

WFG 

WRITE 

WFG 

REWIND 

SFFG 

SFFG 

SFFG 

BSFG 

BSFG 

BSFG 

SFFG 

READ 

BLKCMP 

RLNK2 

WLNK2 



#TST41 .SESCAPE ; 5 ESCAPE 

,WLNK1 
,WLNKa 
,WLNK3 



TO TEST 41 ON ERROR 

SELECT DRIVE FOR TESTING 

GO TO "BOT" 

WRITE A BLOCK 

FILE GAP 

BLOCK 

FILE GAP 

BLOCK 

FILE GAP 

GO TO "BOT" 

SPACE OVER 1ST FILE 

SPACE OVER 2ND FILE 

SPACE OVER 3RD FILE 

BACK OVER 3RD FILE 

BACK OVER 2ND FILE 

BACK OVER 1ST FILE 

GO TO BEGINNING OF 2ND FILE 

READ THE BLOCK 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 
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SEO 0041 



SEQ 0041 



1901 
1902 








1903 








1904 


005564 


000004 




1905 


005566 


012737 


005672 


1906 


005574 


104422 




1907 


005576 


104421 




1908 


005600 


104413 


017012 


1909 


005604 


104413 


017016 


1910 


005610 


104412 




1911 


005612 


104413 


017022 


1912 


005516 


104413 


017026 


1913 


005622 


104412 




1914 


005624 


104413 


017032 


1915 


005630 


104413 


017036 


1916 


005634 


104412 




1917 


005636 


104421 




1918 


005640 


104417 




1919 


005642 


104417 




1920 


005544 


-,04414 


016776 


1921 


005650 


104423 




1922 


005652 


016776 




1923 


005654 


017032 




1924 


005656 


104415 




1925 


005660 


104414 


016778 


1926 


005664 


104423 




1927 


005666 


016776 




1928 


005670 


017032 




1929 








1930 








1931 








1932 


005672 


000004 




1933 


005674 


012737 


006042 


1934 


005702 


104422 




1935 


005704 


104421 




1936 


005706 


104413 


017012 


1937 


005712 


104413 


017016 


1938 


005716 


104413 


017022 


1939 


005722 


104412 




1940 


005724 


104413 


017026 


1941 


005730 


104413 


017032 


1942 


005734 


104412 




1943 


005736 


104421 




1944 


005740 


104417 




1945 


005742 


104417 




1946 


005744 


104415 




1947 


005746 


104414 


016772 


1948 


005752 


104423 




1949 


005754 


016772 




1950 


005756 


017026 




1951 


005760 


104415 




1952 


005762 


104415 




1953 


005764 


104414 


016756 


1954 


005770 


104423 




1955 


005772 


016756 




1956 


005774 


017012 





J*********lJ>*«l* 
*TEST 41 

TST41 : SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WRITE 
WFG 
WRITE 
WRITE 
WFG 
WRITE 
WRITE 
WFG 
REWIND 
SFFG 
SFFG 
READ 
BLKCMP 
RLNK5 
WLNK5 
BSFG 
READ 
BLKCMP 
RLNK5 
WLNK5 

*TEST 42 

TST42S SCOPE 
MOV 
SELDRV 
REWIND 
WRITE 
WRITE 
WRITE 
WFG 
WRITE 
WRITE 
WFG 

REWIND 
SFFG 
SFFG 
BSFG 
READ 
BLKCMP 
RLNK4 
WLNK4 
BSFG 
BSFG 
READ 
BLKCMP 
RLNK1 
WLNK1 



*i$!i»ii!)iiiSi*)t:«*«!ti**i{c*4i!^^**i$:^i^*«*******$*****^**sS:«i^it:>ii*>^$ 

TWO BLOCK FILES— MULTI SPACING FUNCTIONS 

i$i(:*«4ti$!*!tii$9ii$i$ia^>ic:$ti$i(ii^*iSc«*$tici(c******^*i»*********4:*!$s$*i$>i> 



#TST42,$ESCAPE 



WLNK1 
WLNK2 



WLNK3 
WLNK4 



WLNKS 
WLNK6 



;; ESCAPE TO TEST 42 ON ERROR 

{SELECT DRIVE FOR TESTING 

J GO TO "BOT" 

{WRITE A 2 BLOCK FILE 



{WRITE A 2 BLOCK FILE 
{WRITE A 2 BLOCK FILE 



{GO TO "BOT" 

{SPACE OVER 1ST FILE 

{SPACE OVER 2ND FILE 

,RLHK5 {READ 1ST BLOCK OF 3RD FILE 

{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 
{BACK TO BEGINNING OF 3RD FILE 

,RLMK5 {READ 1ST BLOCK OF 3RD FILE 

{COMPARE THE READ AND WRITE BUFFERS 
{LINK TO THE READ BUFFER 
{LINK TO THE WRITE BUFFER 

ae!iSi««t:$$i$)i:*i$:i$i:^iSi4<*$!4l*>t<*$i»iJ!***^***********i^s^*4i**s^**i<<l4>* 

MULTI SPACING i, TEST SFBG AFTER READ 
#TST43,$ESCAPi {{ESCAPE TO TEST 43 ON ERROR 



,WLNK1 
,WLNK2 
,WLNK3 

,ls^LNK4 
,WLNKS 



{SELECT DRIVE FOR TESTING 

{GO TO "BOT" 

{WRITE A 3 BLOCK FILE 



{WRITE A 2 BLOCK FILE 



{GO TO «BOT" 

{SPACE OVER THE 1ST FILE 

{SPACE OVER THE 2ND FLE 

{BACK TO BEGINNING OF 2 FILE 

{READ 1ST BLOCK OF 2ND FILE 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

{BACK TO BEGINNING OF 2ND FILE 

{BACK OVER 1ST "^ILE 

{READ 1ND BLOCK OF 1ST FILE 

{COMPARE THE READ AND WRITE BUFFERS , 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 



TA11 MOTION TEST 
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1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
"1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 



005776 
006000 
006004 
006006 
006010 
006012 
006014 
006020 
006022 
006024 
006026 
006030 
006034 
006036 
006040 



006042 
006044 
006052 
006054 
006056 
006062 
006066 
006070 
006074 
006100 
006102 
006106 
006112 
006114 
006116 
006120 
006122 
006124 
006126 
006130 
006132 
006134 
006140 
006142 
006144 
006146 
006150 
006154 
006156 
006160 



104415 
104414 
104423 
016756 
017012 
104420 
104414 
104423 
016766 
017022 
104417 
104414 
104423 
016772 
017026 



000004 
012737 
104422 
104421 
104413 
104413 
104412 
104413 
104413 
104412 
104413 
104413 
104412 
104421 
104417 
104417 
104417 
104415 
104415 
104416 
104417 
104414 
104423 
016766 
017022 
104417 
104414 
104423 
016776 
017032 



CZTAD-D 
08:34 



016766 
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T42 MULTI SPACING & TEST SFBG AFTER READ 



SiQ 0042 



SEQ 0042 



006162 001172 



017012 
017016 



017022 
017026 



017032 
017036 



006162 
006164 
006172 
006174 
006176 



000004 
012737 
104422 
104421 
104413 



016776 



006352 
017012 



BSFG 

READ 

BLKCMP 

RLNK1 

WLNK1 

SFBG 

READ 

BLKCMP 

RLNK3 

WLNK3 

SFFG 

READ 

BLKCMP 

RLNK4 

WLNK4 

*TEST 43 
. ^ iSi ********** * 
TST43! SCOPE 
MOV 

SELDRV 
REWIND 
WRITE 
WRITE 
WFG 
WRITE 
WRITE 
WFG 
WRITE 
WRITE 
WFG 
REWIND 
SFFG 
SFFG 
SFFG 
BSFG 
BSFG 
BSBG 
SFFG 
READ 
BLKCMP 
RLNK3 
WLNK3 
SFFG 
READ 
BLKCMP 
RLNK5 
WLNK5 

. .««*****«****!! 

;«TEST 44 
. .*****»**#«**^ 
TST44: SCOPE 
001172 MOV 

SELDRV 
REWIND 
WRITE 



,RLNK3 



,RLNK4 



***************«!( 

TWO BLOCK FILES- 

**********«***«*< 

#TST44,$ESCAPE 



,WLHK1 
,WLNK2 



,WLNK3 
,WLNK4 



,WLNK5 
«WUJK6 



;G0 TO BEGINNING OF 1ST FILE 
;READ 1ST BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 
5 GET OVER 2ND BLOCK 
;READ 3RD BLOCK 

; COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
:LINK TO THE WRITE BUFFER 
;G0 TO BEGINNING OF 2ND FILE 
; READ 1ST BLOCK Cr 2ND FILE 
I COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE READ BUFFER 
;LINK TO THE WRITE BUFFER 
********************************* 
-MULTI SPACING & TEST SFFG AFTER BSBG 
********************************* 

} {ESCAPE TO TEST 44 ON ERROR 

; SELECT DRIVE FOR TESTING 

;G0 TO BOT 

•.WRITE A 2 BLOCK FILE 



{WRITE A 2 BLOCK FILE 
{WRITE A 2 BLOCK FILE 



{BOT 

{SPACE OVER 3 FILES 



{BACK OVER 2 FILES 



,RLHK3 



«RLNK5 



{BACK TO 2ND BLOCK OF 1ST FILE 

{GO TO BEGINNING OF 2N0 FILE 

{READ 1ST RECORD OF 2ND FILE 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

{GO TO 3RD FILE 

{READ 1ST RECORD OF 3RD FILE 

{COMPARE THE READ AND WRITE BUFFERS 

{LINK TO THE READ BUFFER 

{LINK TO THE WRITE BUFFER 

******************************************* 

BLOCK FILES MULTI SPACING 

*************************** **************** 



6 ONE 

******* 



#$EOP,SESCAPE {{ESCAPE TO $EOP ON ERROR 

{SELECT DRIVE FOR TESTING 
{60 TO BOT 

,«IJIK1 {WRITE A 1 RECORD FILE 



TA11 MOTION TEST CZTAD-D ?^ACY11 30A(1 
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2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2045 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 



006202 
006204 
006210 
006212 
006216 
006220 
006224 
006226 
006232 
006234 
006240 
006242 
006244 
006246 
006250 
006252 
006254 
006256 
006260 
006262 
006266 
006270 
006272 
006274 
006276 
006300 
006304 
006306 
006310 
006312 
006314 
006316 
006320 
006324 
006326 
006330 
006332 
006334 
006336 
006340 
006344 
006346 
006350 



104412 
104413 
104412 
104413 
104412 
104413 
104412 
104413 
104412 
104413 
104412 
104421 
104417 
104417 
104417 
104417 
104417 
104417 
104415 
104414 
104423 
017.002 
017036 
104415 
104415 
104414 
104423 
016776 
017032 
104415 
104415 
104415 
104414 
104423 
016766 
017022 
104415 
104415 
104415 
104414 
104423 
016756 
017012 



017016 
017022 
017026 
017032 
017036 



23-MAR- 


•78 08:36 PAGE 43 


6 ONE BLOCK FILES MULTI SPACING 


WFG 




WRITE 


WLNK2 ; 


WFG 




WRITE 


WLNK3 { 


WFG 




WRITE 


WLNK4 


WFG 




WRITE 


WLNKS 


WFG 




WRITE 


WLHK6 


WFG 




REWIND 




SFFG 




SFFG 




SFFG 




SFFG 




SFFG 




SFFG 


{ 


BSFG 


5 


READ 


,RLNK@ 


BLKCMP 




RLNK6 




WLNK6 




BSFG 




BSFG 




READ 


fULMKS i 


BLKCMP 




RLNK5 




WLNKS 




BSFG 




BSFG 




BSFG 




READ 


,RLMK3 


BLKCMP 




RLNK3 




WLNK3 




BSFG 




BSFG 




BSFG 




READ 


,Ry4K1 


BLKCMP 




RLNK1 




WLNK1 





SEQ 0043 



SEQ 0043 



WRITE A 1 BLOCK FILE 

WRITE A 1 BLOCK FILE 

WRITE A 1 BLOCK FILE 

WRITE A 1 BLOCK FILE 

WRITE A 1 BLOCK FILE 

BOT 

SPACE OVER 1ST FILE 

SPACE OVER 2ND FILE 

SPACE OVER 3R0 FILE 

SPACE OVER 4TH FILE 

SPACE OVER 5TH FILE 

SPACE OVER 6TH FILE 
NOW BACK UP AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 
LINK TO THE WRITE BUFFER 
BACK UP TO 5TH FILE 

AND READ IT 

; COMPARE THE READ AND WRITE BUFFERS 
ILINK TO THE READ BUFFER 
ILINK TO THE WRITE BUFFER 
iBACK UP TO 3RD FILE 



AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

BACK UP TO 1ST FILE 



AND READ IT 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 



TA11 MOTION TEST CZTAD-D MACYII 30A(1052) 23-MAR-78 08:36 
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SEO 0044 



SEQ @044 



2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2066 
2087 
2088 
2089 
2090 
2091 
2092 



006352 
006352 
006354 
006360 
006364 
006370 
006376 
006400 
006402 
006404 
006406 
006410 
006412 
006416 
006422 
006426 
006430 
006432 
006434 
006436 
006440 
006442 
006442 
006444 
006446 
006451 
006456 



.SBTTL END OF PASS ROUTINE 



«>$t«$««>»i$!!i$«i«i«:^!^4t)S>«««i»$»«>$i««!«i«««$ 



^INCREMENT THE PASS NUMBER (SPASS) 

(■TYPE "END PASS" 

i«IF THERES A MONITOR GO TO IT 

KlF THERE ISN'T UUMP TO START 

!.IF IT IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS'^ 

N$ENDMC CAN BE CHANGED TO 7. 



000004 

005037 001102 

005037 001170 

005237 001100 



100000 001160 



042737 

005327 

000001 

003017 

012737 

000001 

006400 

104401 

104401 

013700 000042 

001405 

000005 

004710 

000240 

000240 

000240 



006451 
006446 



000137 

002312 

377 



015 042412 
050040 051501 



377 000 
042116 
000123 



SEOPCT! 
lENDCTl 

$GET42: 
$ENDAD! 

$D0AGN: 

SRTNADS 
SENULL: 
SENDMG: 



SCOPE 
CLR 
CLR 
• INC 
BIC 
DEC 
.WORD 
BGT 
MOV 
.WORD 
SEOPCT 
TYPE 
TYPE 
MOV 
BEQ 
RESET 
JSR 
NOP 
NOP 
NOP 

UMP 
.WORD 
.BYTE 
.ASCII 



STSTNM 

STIMES 

SPASS 

#100000, SPASS 

(PC) + 

1 

SDOAGN 

(PC)+,®(PC)+ 

1 

,$ENDMG 
, SENULL 
@#42,R0 
SDOAGN 

PC.CRO) 



@(PC)+ 

START 

-1,-1,0 



;ZERO THE TEST NUMBER 
JZERO THE NUMBER OF ITERATIONS 
I INCREMENT THE PASS NUMBER 
; DON'T ALLOW A NEG. NUMBER 
; LOOP? 

;YES 

{RESTORE COUNTER 



jTYPE "END PASS" 
;TYPE A NULL CHARACTER 
;GET MONITOR ADDRESS 
; BRANCH IF NO MONITOR 
; CLEAR THE WORLD 
;G0 TO MONITOR 
;SAVE ROOM 
;FOR 
JACTII 



; RETURN 



<15><ia>/END PASS/ 



;;NULL CHARACTER STRING 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23--MAR-7B 
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SEQ 0045 



Si@ 064S 



2093 










.***** 






2094 
2095 








!SBTTL 




ROUTINE TO EXAMINE DRIVE 


2096 














2097 










call: 






2098 
2099 












MOV 


#DRVKEY,R0 












JSR 


PC,@#EXAM 


2100 












NORMAL 


RETURN 


2101 












ERROR 


RETURN 


2102 
2103 


006464 


013701 


001220 


exam: 


MOV 


@#TACSL,R1 


2104 


006470 


005011 






CLR 


(R1) 


2105 


006472 


122710 


000101 




CMPB 


#'A,(R0) 


2106 


006476 


001402 






BEQ 


1S 


2107 


006500 


052711 


000400 




BIS 


#UNIT,CR1) 


2108 


006504 


032711 


000040 


is: 


BIT 


i¥READY,CR1) 


2109 


006510 


001775 






BEO 


1$ 


2110 


006512 


005711 






TST 


(R1) 


21 1 1 


006514 


100024 






BPL 


4$ 


2112 


006516 


032711 


001000 




BIT 


#0FFLINE,(R1) 


2113 


006522 


001017 






BNE 


3$ 


2114 


006524 


032711 


010000 




BIT 


#WRTL0CK,(R1) 


21 15 


006530 


00141 1 






BEO 


2$ 


2116 


006532 


122.777 


000201 


172400 


CMPB 


#BIT07!BIT00,@SV!lR 


21 17 


006540 


001412 






BEO 


4$ 


2118 


006542 


122777 


000203 


172370 


CMPB 


#BIT07!BIT01 IBITOO,@SWR 


2119 


006550 


001406 






BEQ 


4$ 


2120 


006552 


000403 






BR 


3$ 


2121 


006554 


032711 


020000 


2$: 


BIT 


PLEADER, CRD 


2122 


006560 


001002 






BNE 


4$ 


2123 


006562 


062716 


000002 


3$: 


ADD 


#2,CSP) 


2124 


006566 


000207 






4$: 


RTS 


PC 



;R1 IS DESTROYED 



; PICKUP THE "CONTROL & STATUS" f?E6. ADR. 

jDRIVEs-A", FUNCTIPN^^WPG* 

{EXAMINE DRIVE "A"? 

;BR IF YES 

{SELECT DRIVE "B" 

;WAIT ON READY 

I ANY ERROR? 

J BR IF NO 

{ERROR DUE TO "OFF LINE"? 

I BR IF YES 

{ERROR DUE TO "WRITE LOCK"? 

{BR IF NO 

; "READONLY" SELECTED? (RD1PAS) 

{BR IF YES 

{(RD2PAS)? 

{BR IF YES 

{TAKE THE ERROR EXIT 

{ERROR DUE TO "CLEAR LEADER"? 

{BR IF YES 

{TAKE ERROR RETURN 

{RETURN 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PA 
JzTADD PI? 23-MAR-78 08:34 SCOPE HANDLER ROUTINE 

.SBTTL SCOPE HANDLER ROUTINE 



SEQ 0046 



SEO 004@ 



2125 










2126 










2127 










2128 










2129 










2130 










2131 










2132 










2133 










2134 










2135 










2136 










2137 










2138 


006570 








2139 


006570 


104406 






2140 


006572 


105777 


172346 




2141 


006576 


100005 






2142 


006600 


104407 






2143 


006602 


122627 


000003 




2144 


006606 


001001 






2145 


006610 


104424 






2146 


006612 


005727 






2147 


006614 


000000 






2148 


006616 


001105 






2149 


006620 


032777 


040000 


172312 


2150 


006625 


001101 






2151 










2152 


006630 


000416 






2153 










2154 


006632 


013746 


000004 




2155 


006636 


012737 


006656 


000004 


2156 


006644 


005737 


177060 




2157 


006550 


012637 


000004 




2158 


006654 


000453 






2159 


006656 


022626 






2160 


006660 


012637 


000004 




2161 


006664 


000413 






2162 


006666 








2163 


006666 


105737 


001103 




2164 


006672 


001421 






2165 


006674 


123737 


001115 


001103 


2166 


006702 


101015 






2167 


006704 


032777 


001000 


172226 


2168 


006712 


001404 






2169 


006714 


013737 


001110 


001106 


2170 


006722 


000443 






2171 


006724 


105037 


001103 




2172 


006730 


005037 


001170 




2173 


006734 


000415 






2174 


006736 


032777 


004000 


172174 


2175 


006744 


001011 






2176 


006746 


005737 


001100 




2177 


006752 


001406 






2178 


006754 


005237 


001104 




2179 


006760 


023737 


001170 


001104 


2180 


006766 


002021 







iTHlS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7S0>) 

*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 0B> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW14»1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

*SW09«1 LOOP ON ERROR 

*CALL 

* SCOPE I ; SCOPE'S lOT 



sscope: 

CKSWR 
TSTB 
BPL 
RDCHR 
CMPB 
BNE 

SET LOOP 
.100$: TST 

L00PKEY5 

BNE 

1$: BIT 
BNE 



-SWR 



;;TEST FOR CHANGE IN SOFT- 
§»$TKS JTTY FLAG UP? 

100$ ;BR IF NO 

;G0 GET ONE CHARACTER fUOM TTY 
(SP)-S-,#3 ; IS IT A CONTROL/C ? 

1O0S ;BR IF NO 

;G0 GET "TEST" AND "SCOPE LC^P" ADDRESSES 
(PC)+ ;LOOP ON TEST? 



$OVER ;BR IF YES 

»BIT14,®SWR ;;LOOP ON PRESENT TEST? 
$OVER ;|YES IF SW14=1 



;^###i^START OF CODE FOR THE XOR TESTER##### 



SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 
5$: CMP 
MOV 
BR 



6S ;|IF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A "NOP" (N0P=240) 

f>#ERRVEC,-(SP) ; ;SAV6 THE CONTENTS OF THE ERROR VECTRti 

#5$,@#ERRVEC 5 I SET FOR TIMEOUT 

@# 177060 ;;TIME OUT ON XOR? 

(SP)+,i>(^ERRVEC SJRESTORE THE ERROR VECTOR 

SSVLAD ;iGO TO THE NEXT TEST 

(SP)-^,(SP)H- ;;CLEAR THE STACK AFTER A T WE OUT 

(SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 

7$ ;;LOOP ON THE PRESENT TEST 



6$:j##^<y#END OF CODE FOR THE XOR TESTER*(!^### 

2$: TSTB SERFLG j;HAS AN ERROR OCCURRED? 

BEO 3$ ;;BR IF NO 

CMPB SERMAX, SERFLG ; ;MAX. ERRORS FOR THIS TEST OCCURRED? 

BHI 3$ r.BR IF NO 

BIT #BIT09,@SWR ; ; LOOP ON ERROR? 

BEO 4$ ;;BR IF NO 

7S: MOV SLPERR.SLPADR ; ;SET LOOP ADDRESS TO LAST SCOPE 

BR SOVER 

4$: CLRB SERFLG ;;ZERO THE ERROR FLAG 

CLR STIMES JJCLEAR THE NUMBER OF ITERATIONS TO MAKE 

BR IS ;; ESCAPE TO THE NEXT TEST 

3$: BIT #BIT11,@SWR ;; INHIBIT ITERATIONS? 

BNE 1$ !;BR IF YES 

TST $PASS ;;IF FIRST PASS OF PROGR/.r^ 

BEO 1$ ; ; INHIBIT ITERATIONS 

INC SICNT ;; INCREMENT ITERATION COUNT 

CMP STIMES, SICNT ; '.CHECK THE NUMBER OF ITERATIONS MADE 

BGE $OVER ;;BR IF MORE ITERATION REQUIRED 
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SEQ 004? 



2181 


006770 


012737 


000001 


001104 


1$: 


MOV 


#1 , SICNT 


2182 


006776 


013737 


001216 


001170 




MOV 


$MXCNT,$TIMES 


2183 


007004 


105237 


001102 




SSVLAD: 


INCB 


STSTNM 


2184 


007010 


01 1637 


001106 






MOV 


(SP),$LPADR 


2185 


007014 


011637 


001110 






MOV 


(SP),$LPERR 


2186 


007020 


005037 


001172 






CLR 


SESCAPE 


2187 


007024 


112737 


000001 


001115 




MOVB 


#1,$ERMAX 


2188 


007032 


013777 


001102 


172102 


SOVER: 


MOV 


STSTNM, ©DISPLAY 


2189 


007040 


013716 


001106 






MOV 


$LPADR,(SP) 


2190 


007044 


000002 








RTI 





SEQ 0047 



JREINITIALIZE THE ITERATION COUNTER 

;SET NUMBER OF ITERATIONS TO DO 

; COUNT TEST NUMBERS 

JSAVE SCOPE LOOP ADDRESS 

;SAVE ERROR LOOP ADDRESS 

; CLEAR THE ESCAPE FROM ERROR ADDRESS 

;ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 

; DISPLAY TEST NUMBER 

; FUDGE RETURN ADDRESS 

{FIXES PS 
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SEO 0048 



2191 










SBTTL 


ERROR 1- 


HANDLER ROUTINE 




2192 
21 93 










****** 




2194 










*THIS 


ROUTINE 


WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


2195 










*SAVE 


THE ERIkOR ITEM NUMBER AND 


THE ADDRESS OF THE ERROR CALL 


2196 










*AND GO TO TYPERR ON ERROR 




2197 










*THE SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


2198 










*SW15= 


1 


HALT ON ERROR 




2199 










«SW13» 


1 


INHIBIT ERROR TYPEDUTS 


2200 










*SW10« 


1 


BELL ON ERROR 




2201 










*SW09s 


1 


LOOP ON ERROR 




2202 










*CALL 








2203 










« 


ERROR 


N ;;ERROR»EMT AND N=ERROR ITEM NUMBER 


2204 
2205 


007046 






SERROR! 








2206 


007046 


104406 








CKSWR 




ITEST FOR CHANGE IN SOFT-SWR 


2207 


007050 


011437 


001162 






MOV 


@TACS,@il'$REG0 


;SAVE THE TA11 STATUS 


2208 


007054 


011537 


001164 






MOV 


S>TADB,®#$REG1 


;SAVE THE DATA BUFFER 


2209 


007060 


105714 








TSTB 


@TACS 


J IF "XFER REO" IS UP KNOCK 11 


2210 


007062 


100003 








6PL 


100$ 




2211 


007064 


112714 


000020 






MOV 8 


#ILBS,@TACS 




2212 


007070 


000406 








BR 


101$ 




2213 


007072 


032714 


000040 




00$: 


BIT 


#READY,@TACS 


;IS READY SET? 


2214 


007076 


001003 








BNE 


101$ 


;BR IF YES 


2215 


007100 


000005 








RESET 




; REGAIN CONTROL 


2216 


007102 


013714 


001162 






MOV 


@#$REGO,@TACS 


1 RESTORE THE TACS 


2217 


007106 


022626 






01$! 


CMP 


(SP) + ,{SP)-l- 


;POP THE STACK 


2218 


0071 10 


005737 


001246 






TST 


ASKKEY 


; MANUAL LOOPING? 


2219 


0071 14 


002002 








BGE 


102$ 


; BR IF NO 


2220 


0071 16 


01 1637 


001172 






MOV 


(SP),$ESCAPE 


; SETUP FOR MANUAL ESCAPE 


2221 


007122 


016616 


177774 




02$: 


MOV 


-4(SP).(SP) 


;GET PC+2 OF ERROR 


2222 


007126 


105237 


001103 


7$: 


INCB 


$ERFLG 


;SET THE ERROR FLAG 


2223 


007132 


001775 








BEO 


7$ 


; DON'T lET THE FLAG GO TO ZERO 


2224 


007134 


013777 


001102 


172000 




MOV 


$TSTNM,@DISPLAY 


; DISPLAY TEST NUMBER AND ERROR FLAG 


2225 


007142 


032777 


002000 


171770 




BIT 


#BITtO,€>SWR 


;BELL ON ERROR? 


2226 


007150 


001402 








BEQ 


1$ 


;N0 - SKIP 


2227 


007152 


104401 


001174 






TYPE 


,$BELL 


;RING BELL 


2228 


007156 


005237 


001112 




$: 


INC 


$ERTTL 


; COUNT THE NUMBER OF ERRORS 


2229 


007162 


01 1637 


001116 






MOV 


(SP),$ERRPC 


;GET ADDRESS OF ERROR INSTRUCTION 


2230 


007166 


162737 


000002 


001116 




SUB 


#2,$ERRPC 




2231 


007174 


117737 


171716 


001114 




MOVB 


@$ERRPC.$ITEMB 


; STRIP AND SAVE THE ERROR ITEM CODE 


2232 


007202 


032777 


020000 


171730 




BIT 


#BIT13,©SWR 


;SKIP TYPEOUT IF SET 


2233 


007210 


001004 








BNE 


20$ 


;SKIP TYPEOUTS 


2234 


007212 


004737 


007276 






JSR 


PC, TYPERR 


;G0 TO USER ERROR ROUTINE 


2235 


007216 


104401 


001201 






TYPE 


,$CRLF 




2236 


007222 






20$: 








2237 


007222 


005777 


171712 


2$: 


TST 


@SWR 


{HALT ON ERROR 


2238 


007226 


100002 








BPL 


3$ 


;SKIP IF CONTINUE 


2239 


007230 


000000 








HALT 




JHALT ON ERROR! 


2240 


007232 


104406 








CKSWR 




JTEST FOR CHANGE IN SOFT-SWR 


2241 


007234 


032777 


001000 


171676 3S: 


BIT 


#BIT09,@SWR 


5 LOOP ON ERROR SWITCH SET? 


2242 


007242 


001402 








BEQ 


4$ 


;BR IF NO 


2243 


007244 


013716 


001110 






MOV 


$LPERR,(SP) 


; FUDGE RETURN FOR LOOPING 


2244 


007250 


005737 


001172 


4$: 


TST 


SESCAPE 


; CHECK FOR AN ESCAPE ADDRESS 


2245 


007254 


001402 








BEO 


5$ 


;BR IF NONE 


2248 


007256 


013716 


001172 






MOV 


$ESCAPE,(SP) 


{FUDGE RETURN ADDRESS FOR ESCAPE 
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2247 


007262 






2248 


007262 


022737 006432 


000042 


2249 


007270 


001001 




2250 


007272 


000000 




2251 


007274 






2252 


007274 


000002 
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SEQ 0049 



CMP 


#$ENDAD,M42 


J ; ACT-1 1 AUTO-ACCEPT? 


BNE 


6$ 


;; BRANCH IF NO 


HALT 




;;YES 



} {RETURN 
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SEO 00S6 



SEO 00i@ 



2253 
2254 








;THIS 


ROUTINE WILL TYPEOUT 1 


2255 


007276 


104401 


001201 


TYPERR 


: TYPE 


,$CRLF 


2256 


007302 


104401 






TYPE 




2257 


007304 


000000 




1«FUNC: 







2258 


007306 


104401 


001201 




TYPE 


,$CRLF 


2259 


007312 


162737 


000002 001304 


SUB 


#2,@#SAVPC 


2260 


007320 


010046 






MOV 


R0,-{SP) 


2261 


007322 


113700 


001114 




MOVB 


@#$ITEMfl,RO 


2262 


007326 


005300 






DEC 


RO 


2263 


007330 


006300 






ASL 


RO 


2264 


007332 


006300 






ASL 


RO 


2265 


007334 


006300 






ASL 


RO 


2266 


007336 


062700 


001270 




ADO 


j¥$ERRTB,RO 


2267 


007342 


012037 


007350 




MOV 


(R0)4-,1$ 


2268 


007346 


104401 






TYPE 




2269 


007350 


000000 




1$: 







2270 


007352 


012037 


007362 




MOV 


(R0)+,2$ 


2271 


007356 


001402 






BEO 


3$ 


2272 


007360 


104401 






TYPE 




2273 


007362 


000000 




2$: 







2274 


007364 


012000 




3$: 


MOV 


{R0)+,R0 


2275 


007366 


001004 






BNE 


5$ 


2276 


007370 


012600 




4S: 


MOV 


(SP)'!-,RO 


2277 


007372 


104401 


001201 




TYPE 


,$CRLF 


2278 


007376 


000207 






RTS 


PC 


2279 


007400 






5$: 






2280 
2281 
2282 


007400 


013046 






MOV 


@(RO)-«-,-(SP 


007402 


104402 






TYPOC 




2283 


007404 


005710 






TST 


(RO) 


2284 


007406 


001770 






BEO 


4$ 


2285 


007410 


104401 


007416 




TYPE 


,6$ 


2286 


007414 


000771 






BR 


5$ 


2287 


007416 


020040 


000 


8$: 


•ASCII 


/ / 


2288 




007422 






.EVEN 





ERROR MESSAGES 

;TYPE A CARRIAGE RETURN S LINE FEED 
;TYPE THE FUNCTION BEINfi PERF0R8SED 
JMESSAGE POINTER GOES HtRE 

ADJUST THE MAIN FLOW PC 

SAVE RO 

PICKUP THE ITEM INDEX 

ADJUST THE INDEX 

SO IT WILL WQ«K FOR 

THE ERROR TABLE 

FORM THE TABLE POINTER 

PICKUP "ERROR MESSAGE" POINTER 

TYPE "ERROR MESSAGE" 

"ERROR MESSAGE POINTER" GOES HERE 

PICKUP "DATA HEADER" POINTEP. 

IF "0" DON'T TYPE 

TYPE "DATA HEADER 

"DATA HEADER" POINTER GOES HERE 

PICKUP "DATA POINTER" 

IF THERE IS DATA TO TYPE GO DO IT 

RESTORE RO 

TYPE A CARRAGE RETURNS LINE FEED 

RETURN 

JSAVE ®(R0)+ FOR TYPEOUT 

;TYPE DATA 

IGQ TYPE—OCTAL ASCII (ALL DIGITS) 

; TERMINATOR? 

;BR IF YES 

;TYPE 2 SPACES. 

; LOOP 

; ASCII STRING OF 2 SPACES 
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2289 








2290 








2291 








2292 








2293 








2294 








2295 








2296 








2297 


007422 


104401 


015136 


2298 


007426 


005037 


001240 


2299 


007432 


104410 




2300 


007434 


012600 




2301 


007436 


105710 




2302 


007440 


001425 




2303 


007442 


012701 


Oai 240 


2304 


007446 


122710 


000101 


2305 


007452 


001002 




2306 


007454 


112021 




2307 


007456 


00041 1 




2308 


007460 


122710 


0001 oa 


2309 


007464 


001002 




2310 


007466 


112021 




2311 


007470 


000404 




2312 


007472 


122710 


000054 


2313 


007476 


00lt)06 




2314 


007500 


105720 




2315 


007502 


105710 




2316 


007504 


001406 




2317 


007506 


022701 


001242 


2318 


007512 


101355 




2319 


007514 


104401 


001200 


2320 


007520 


000740 




2321 


007522 


005737 


001240 


2322 


007526 


001772 




•2323 


007530 


000207 




2324 








2325 








2326 








2327 








2328 








2329 


007532 


010046 




2330 


007534 


104401 


015152 


2331 


007540 


104411 




2332 


007542 


012600 




2333 


007544 


001423 




2334 


007546 


020027 


160000 


2335 


007552 


103770 




2336 


007554 


010037 


001220 


2337 


007560 


062700 


000002 


2338 


007564 


010037 


001224 


2339 


007570 


013737 


001220 


2340 


007576 


005237 


001222 


2341 








2342 


007602 


013737 


001224 


2343 


007610 


005237 


001226 


2344 


007614 


104401 


015162 
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SEO 00&1 



SEO 0051 



ijt******************** 



ROUTINE TO ASK THE OPERATOR WHAT DHIVE(S) TO TEST 



JCALL 


JSR 


PC,##ASKDRV 


; 


RETURN 




ASKORV: 


TYPE 


,MSGDRV 




CLR 


DRVKEY 




RDLIN 






MOV 


(SP)+,RO 




TSTB 


@>R0 




BEO 


NOTLGL 




MOV 


#DRVKEY,R1 


LOOP: 


CMPB 


0'k,§>m 




BNE 


NOTA 




MOVB 


CRO)4.,(f?1)-8- 




BR 


NEXT 


NOT A: 


CMPB 


«'B,@RO 




BNE 


NOTB 




MOVB 


(RO)-l-,CRt)* 




BR 


NEXT 


notb; 


CMPB 


<^54.@R0 




BNE 


NOTLGL 




TSTB 


(RO)-i. 


NEXT s 


TSTB 


mo 




BEO 


EXIT 




CMP 


#DRVKEY4-2,R1 




BHI 


LOOP 


NOTLQL 


TYPE 


,$OUES 




BR 


ASKDRV 


exit: 


TST 


DRVKEY 




BEO 


NOTLGL 




RTS 


PC 



JNOTE: RO AND R1 ARE DESTROYED 

;<CRLF>''DRIVE(S)? « 

;G0 GET A DRIVE 

; SETUP TO CHECK FOR VALID DRIVECS) 

jWAS A DRIVE SELECTED? 

;BR IF NO 

;WAS DRIVE "A" SELECTED? 

; BR IF NO 

;SET KEY FOR DRIVE "A" 

{WAS DRIVE "B" SELECTED? 

;BR IF NO 

;SET KEY FOR DRIVE "B" 

;WAS A COfmk TYPED? 

;BR IF NO 

;DUMP THE COMMA 

; TERMINATOR? 

;BR IF YES 

;TWO DRIVES SELECTED? 

;BR IF NO 

; ILLEGAL INPUT DETECTED 

;G0 TRY AGAIN 

;ANY DRIVE SELECTED? 

;m IF NO 



.*»«*^«* ****«.»**«******»***************** *********************** 

CALL 

JSR PC.WASKADR 

;SAVE RO 

;«TACS?" 

;G£T VALUE 

;PICK UP THE OCTAL NUMBrR 

;IF -0" USE OLD VALUES 

JMAKE SURE IT IS A BUS ADDRESS 

;SAVE TOE TACS 

I STEP TO TADB ADDRESS 

;AND SAVE IT 

jSET UP TACS UPPER 

;BYTE POINTER 



ASKADR: 


fyiov 


R0,-CSP) 


1$: 


TYPE 
RDOCT 


.MSGASK 




MOV 


(SP)+,R0 




BEO 


as 




CMP 


Ro.ifieoooo 




BLO 


IS 




MOV 


RO.WTACSL 




ADD 


#2,R0 




MBV 


R0,S>/yTA0BL 




MOV 


##TACSL,MTACSH 




INC 


®#TACSH 




MOV 


^#TADBL,@#TADBH 




XNC 


@Jl?TADBH 


3S2 


TYPE 


,E\SS6VEC 



;SET UP TADB UPPER 
JBYTE POINTER 
; "VECTOR?- 
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2345 


007620 


104411 




2346 


007622 


012600 




2347 


007624 


001411 




2348 


007626 


020027 


001000 


2349 


007632 


103370 




2350 


007634 


010037 


001230 


2351 


007640 


062700 


000002 


2352 


007644 


010037 


001232 


2353 


007650 


104401 


015172 


2354 


007654 


10441 1 




2355 


007656 


012600 




2356 


007660 


001413 




2357 


007662 


020027 


000007 


2358 


007666 


101370 




2359 


007670 


000300 




2360 


007672 


006200 




2361 


007674 


006200 




2362 


007676 


006200 




2363 


007700 


042700 


177437 


2364 


007704 


010037 


001234 


2365 


007710 


104401 


015204 


2366 


007714 


013746 


001220 


2367 


007720 


104402 




2368 


007722 


104401 


015213 


2369 


007726 


013746 


001224 


2370 


007732 


104402 




2371 


007734 


104401 


015i!22 


2372 


007740 


013746 


001230 


2373 


007744 


104402 




2374 


007746 


104401 


015233 


2375 


007752 


013746 


001234 


2376 


007756 


104402 




2377 


007760 


104401 


015246 


2378 


007764 


104407 




2379 


007766 


012600 




2380 


007770 


022700 


00001S 


2381 


007774 


001406 




2382 


007776 


022700 


000131 


2383 


010002 


001403 




2384 


010004 


104401 


001200 


2385 


010010 


000651 




2386 


010012 


104401 


015254 


2387 


010016 


012600 




2388 


010020 


000207 




2389 








2390 








2391 








2392 








2393 








2394 








2395 








2396 








2397 








2398 








2399 








2400 
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TO INPUT CSR.DBR. AND VECTOR 


ADDRESS AND PRIORITY 




RDOCT 












MOV 


(SP)+,R0 










BEO 


5$ 










CMP 


RO.ii'lOOO 






;MAKE SURE ADDRESS 


IS IN V 


BHIS 


3S 










MOV 


RO,@#TAVEC 






;SAVE AS VECTOR ADDRESS 


ADD 


#2,R0 










MOV 


R0,@#TAVEC-S-2 










TYPE 


.MSGPRI 






JASK FOR PRIORITY 




RDOCT 












MOV 


(SP)+,RO 










BEO 


6$ 






;IF "0" USE OLD VALUE 


CMP 


R0,#7 






;MAKE SURE ITS VALID 


BHI 


5$ 










SWAB 


RO 






;PUT INTO HIGH BYTE 




ASR 


RO 






;AND SHIFT 




ASR 


RO 






;INTO PROPER 




ASR 


RO 






; POSITION 




BIC 


*!^"C<340>,R0 






:SAVE ONLY PRIORITY 


BITS 


MOV 


R0,@#TAPRI0 






; STORE IT AWAY 




TYPE 


.MTACS 






jTACSs" 




MOV 


TACSL,-(SP) 


;;SAVE 


TACSL FOR TYPEOUT 




TYPOC 




;;G0 


TYPE— OCTAL ASCII (ALL 


DIGITS) 


TYPE 


.MTADB 






j-TADBs" 




MOV 


TADBL,-(SP) 


;;SAVE 


TADBL FOR TYPEOUT 




TYPOC 




;;G0 


TYPE— OCTAL ASCII (ALL 


DIGITS) 


TYPE 


.MTAVEC 






;" VECTORS " 




MOV 


TAVEC,-(SP) 


5 1 SAVE 


TAVEC FOR TYPEOUT 




TYPOC 




;;G0 


TYPE— OCTAL ASCII (ALL 


DIGITS) 


TYPE 


.MTAPRI 






;"PRIORITY='' 




MOV 


TAPRIO,-(SP) 


•, ;SAVE 


TAPRIO FOR TYPEOUT 




TYPOC 




;;G0 


TYPE— OCTAL ASCII (ALL 


DIGITS) 


TYPE 


,MSGOK 






-."OK?" 




RDCHR 








;G0 READ ONE CHARACTER 


MOV 


{SP)-^,RO 






;GET IT 




CMP 


#15, RO 






;IS IT »CR"? 




BEO 


7$ 






; BRANCH IF YES 




CMP 


#'Y,R0 






;IS IT "Y"? 




BEO 


7$ 






;IT WAS 




TYPE 


,$OUES 






;TYPE "?" 




BR 


1$ 






;AND LET HIM CORRECT THEM 


TYPE 


,MYES 






;TYPE OUT "YES" 




MOV 


(SP)4.,R0 






•.RESTORE RO 




RTS 


PC 






:AND RETURN 





SEQ 0052 



SEO 60Sa 



THIS ROUTINE WILL CHANGE AN .ASCII STRING TO AN OCTAL NUMBER 
REGISTER R1 SWST BE INITILIZED BEFORE ENTERING 



aSR R3,@#A20CT 
POINTER 



ERROR RETURN 



;CALL THE ROUTINE 

; ADDRESS OF THE FIRST CHARACTER IN THE STRING 
; STRING MUST BE TERMINATED BY A BYTE OF ALL O'S 
; RETURN HERE IF ILLEGAL CHARACTER 



TA11 MOTION TEST C2TAD-0 MACYIt 30A(1052) 23-MAR-7a 08:36 PAGE 53 

CZTADD.P11 23-MAR-7a 08:34 ROUTINE TO CHANGE AN .ASCII STRING TO OCTAL 



SEQ 0053 



SEQ 0053 



2401 








2402 








2403 








2404 


010022 


010046 




2405 


010024 


012300 




2406 


010026 


012737 


000006 


2407 


010034 


105710 




2408 


010036 


001420 




2409 


010040 


005327 




2410 


010042 


000000 




2411 


010044 


002416 




2412 


010046 


121027 


000060 


2413 


010052 


002413 




2414 


010054 


121027 


000067 


2415 


010060 


003010 




2416 


010062 


142710 


177770 


2417 


010066 


006301 




2418 


010070 


006301 




2419 


010072 


006301 




2420 


010074 


152001 




2421 


010076 


000756 




2422 


010100 


005723 




2423 


010102 


012600 




2424 


010104 


000203 





NORMAL RETURN 



A20CT: 


MOV 


RO,-(SP) 




MOV 


(R3)-i-.R0 




MOV 


#6.2$ 


1$: 


TSTB 


(RO) 




BEO 


3S 




DEC 


(PC) + 


as: 









BLT 


4$ 




CMPB 


(R0),#«§ 




BLT 


4$ 




CMPB 


(R0),#'7 




BGT 


4$ 




BICB 


#-C7,(R0) 




ASL 


R1 




ASL 


R1 




ASL 


R1 




BIS3 


(R0)-!-,R1 




BR 


1$ 


3$: 


TST 


(R3)4. 


4$! 


MOV 


(SP)4.,R0 




RTS 


R3 



•,0R STRING IS TO LONG 
;OCTAL NUMBER IS IN R1 

•.SAVE RO 

;PICK UP THE POINTER 

;MAX. NUMBER OF CHAR.'S ALLOWED 

•.TERMINATOR? 

;BR IF YES 

; COUNT THIS CHARACTER 

;BR IF TO MANY CHARACTERS IN THE STRING 
; CHECK THIS CHAR. IS BETWEEN 
;0 AND 7 



; STRIP AWAY THE ASCII CODE 
; POSITION THE FOR THIS CHAR 



;SET IN THIS DIGIT 

;G0 GET THE NEXT CHARACTER 

{INCREMENT FOR NORMAL RETURN 

; RESTORE RO 

I RETURN TO USER 
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SEQ 0054 



SE9 0034 



!TADD. 


P11 2 


3-MAR-78 


08:34 


2425 








2426 








2427 








2428 


010106 






2429 


010106 


104401 


015316 


2430 


0101 12 


104410 




2431 


0101 14 


012637 


010142 


2432 


010120 


105777 


000016 


2433 


010124 


001442 




2434 


010126 


022626 




2435 


010130 


010137 


010244 


2436 


010134 


005001 




2437 


010136 


004337 


010022 


2438 


010142 


000000 




2439 


010144 


000760 




2440 


010146 


005721 




2441 


010150 


010116 




2442 


010152 


104401 


015331 


2443 


010156 


104410 




2444 


010160 


012637 


010200 


2445 


010164 


105777 


000010 


2446 


010170 


001410 




2447 


010172 


005001 




2448 


010174 


004337 


010022 


2449 


010200 


000000 




2450 


010202 


000763 




2451 


010204 


010137 


001106 


2452 


010210 


000402 




2453 


010212 


011637 


001106 


2454 


010216 


011637 


001110 


2455 


010222 


012737 


177777 


2456 


010230 


000402 




2457 


010232 


005037 


006614 


2458 


010236 


013701 


010244 


'2459 


010242 


000002 




2460 


010244 


000000 





■THIS ROUTINE WILL INPUT THE ADDRESSES OF 



•TEST" AND 



« s* « * * * * «l * * * * 

"SCOPE LOOP" FROM THE TTY 



T.SETL 


DOP: 






TYPE 


.MTEST 




RDLIN 






MOV 


(SP)+,11$ 




TSTB 


®11$ 




BEO 


3$ 




CMP 


(SP)-H,(SP) + 




MOV 


RI.SAVRI 




CLR 


R1 




USR 


R3,WA20CT 


11$: 









BR 


T. SET LOOP 




TST 


(R1)4- 




MOV 


R1,(SP) 


5S: 


TYPE 
RDLIN 


.MLOOP 




MOV 


(SP)+,12$ 




TStB 


©12$ 




BEO 


IS 




CLR 


R1 




USR 


R3,®#A20CT 


12$: 









BR 


5$ 




MOV 


R1.@jy$LPADR 




BR 


2$ 


1$: 


MOV 


(SP).@#SLPADR 


2S: 


MOV 


(SP),@#$LPERR 




MOV 


<^-1,®#L00PKEY 




BR 


4$ 


as: 


CLR 


@#L00PKEY 


4$: 
SAVR1 : 


MOV 
RTI 



SAVR1 ,Rt 



;TYPE "TEST PC?" 

;GET AN ASCII STRING 

;GET FIRST ADDRESS OF INPUT BUFFER 

;FIRST CHAR. A "CR" ? 

;BR IF YES— -GO CLEAR THE LOOP KEY 

;POP POP 

;SAVE R1 

;SET PARTIAL TO ZERO 

;G0 CHANGE ASCII TO OCTAL 

; POINTER TO STRING 

; ERROR RETURN — GO TRY AGAIN 

JJUST INCREMENTING 

;PUT "TEST PC; ON THE STACK 

-.TYPE "LOOP PC ?" 

;GET A STRING OF ASCII 

;GET FIRST ADDRESS OF INPUT. BUFFER 

;JUST A "CR" ? 

;BR IF YES 

;CLEAR PARTIAL 

; CHANGE TO 6CTAL 



J SAVE SCOPE LOOP ADDRESS 

;G0 SET LCOP KEY 

;SAVE SCOPE LOOP ADDRESS 

; ERROR LOOP SAME AS THE TEST ADDRESS 

;SET THE LOOP KEY 

; CLEAR THE LOQP KEY 
•.RESTORE R1 
;BYE BYE 
•,HOLD R1 HERE 
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JzIIdS Pn 1Lmar-78 oela? routine to select the drive to be tested 



SEQ 005S 



SEQ 005S 



2461 










2462 










2463 










2464 










2465 


010246 








2466 


010246 


032777 


000200 


170664 


2467 


010254 


001041 






2468 


010256 


010146 






2469 


010260 


013701 


001236 




2470 


010264 


111137 


001250 




2471 


010270 


121127 


000101 




2472 


010274 


001406 






2473 


010276 


052714 


000400 




2474 


010302 


012737 


001262 


001256 


2475 


010310 


000405 






2476 


010312 


042714 


000400 




2477 


010316 


012737 


001260 


001256 


2478 


010324 


005201 






2479 


010326 


105711 






2480 


010330 


001002 






2481 


010332 


012701 


001240 




2482 


010336 


010137 


001236 




2483 


010342 


032777 


001000 


1?0§7Q 


2484 


010350 


001002 






2485 


010352 


105037 


001103 




2486 


010356 


012601 






2487 


010360 


000002 







Jthis routine will select the next drive to test 



;LOCK ON CURRENT DRIVE? 

;BR IF YES 

;SAVE R1 ON THE STACK 

;GET THE DRIVE 

JSAVE CURRENT DRIVE 

;IS IT DRIVE "A"? 

;BR IF YES 

; SELECT DRIVE "B" 

;SET REWIND POINTER TO "B" 

jSELECT DRIVE "A" 

;SET REWIND POINTER TO "A" 

; INCREMENT TO THE NEXT DRIVE 

;OUT OF DRIVES TO TEST? 

;BR IF NO 

; RESET TO THE FIRST DRIVE 

;SAVE FOR NEXT TIME 

;IS SWITCH 9=1? 

; BR IF YES 

; CLEAR THE ERROR INDICATOR 

J RESTORE R1 



T.SELDRV! 






BIT 


(^SW07,#SWR 




BNE 


5$ 




MOV 


R1,-(SP) 




MOV 


DRIVE, R1 




M0V8 


(R1),©#CURDRV 




CMPB 


(R1),<?'A 




BEO 


1$ 




BIS 


#UNIT,@TACS 




MOV 


^RWDB,@#RMDFLG 




BR 


2$ 


1$: 


BIC 


#UNIT,@TACS 




MOV 


#RWDA,i>#RWDFLG 


2$: 


INC 


R1 




TSTB 


(R1) 




BNE 


3$ 




MOV 


#DRVKEY,R1 


3$: 


MOV 


R1, DRIVE 




BIT 


#swog,@st^R 




BNE 


4S 




CLRB 


®#$ERFLG 


4$: 


MOV 


CSP)4-,R1 


5$: 


RTI 
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TA11 MOTION TEST CZTAU u i«AWT i » a ROUTINE TO COMPARE THE READ AND WRITE BUFFERS 



AND WRITE BUFFERS 



SEO 0056 



SEO 005® 



CZTADD. 


P11 2 


3-MAR-78 


08:34 


2488 








2489 








2490 


010362 






2491 


010362 


01 1600 




2492 


010364 


010037 


001204 


2493 


010370 


012737 


015521 


2494 


010376 


012003 




2495 


010400 


012301 




2496 


010402 


011303 




2497 


010404 


013002 




2498 


010406 


005037 


010446 


2499 


010412 


010016 




2500 


010414 


005037 


001206 


2501 


010420 


032777 


000010 


2502 


010426 


001401 




2503 


010430 


000002 




2504 


010432 


005303 




2505 


010434 


002001 




2506 


010436 


000002 




2507 


010440 


005237 


001206 


2508 


010444 


122162 


000000 


2509 


010450 


001006 




2510 


010452 


005237 


010446 


2511 


010456 


042737 


177774 


2512 


010464 


000762 




2513 


010466 


1 14137 


001126 


2514 


010472 


063702 


010446 


2515 


010476 


111237 


001124 


2516 


010502 


104010 




2517 








2518 








2519 


010504 


011637 


001204 


2520 


010510 


012737 


015502 


2521 


010516 


004037 


012224 


2522 


010522 


000101 




2523 


010524 


005037 


177776 


2524 


010530 


004037 


011716 


2525 


010534 


104003 




2526 


010536 


104004 




2527 


010540 


004037 


012014 


2528 


010544 


104002 




2529 


010546 


104002 




2530 


010550 


000002 




2531 


010552 


104002 









JTHIS 


ROUTINE 


WILL COMPARE THE READ 


T.BLKCMP: 






MOV 


(SP),R0 




MOV 


RO,f>*SAVPC 




MOV 


#MBUFCK,i>#MFUNC 




MOV 


(R0)+,R3 




MOV 


(R3)+,R1 




MOV 


(R3),R3 




MOV 


@(R0)+,R2 




CLR 


2$+2 




MOV 


RO,(SP) 




CLR 


@#BYTNUM 




BIT 


#SW03,@SWR 




BEO 


IS 




RTI 




is: 


DEC 


R3 




BGE 


4$ 




. RTI 




4$: 


INC 


©#BYTNUM 


2$: 


CMPB 


(R1)+,0(R2) 




BNE 


3$ 




INC 


2$+2 




BIC 


#''C3,2$+2 




BR 


1$ 


3$: 


MOVB 


-{R1),i»#$BDDAT 




ADO 


2$+2,R2 




MOVB 


(R2),@i!^$GDDAT 




ERROR 


10 






JTHIS 


ROUTINE 


WILL WRITE A FILE GAP 


T.WFG 


MOV 


(SP),@#SAVPC 




MOV 


#MXWFG,@#MFUNC 


IS: 


USR 


R0,@/^DO.CMO 




XWFGIINT.ENiGO 




CLR 


WPS 




JSR 


R0,@#WA1TFLAG 




ERROR 


3 




ERROR 


4 




USR 


R0,#(!> FLAGS 




ERROR 


2 



RTI 
ERROR 



;GET THE PC OF THE CALL 

;SAVE THE PC OF THE CALL 

; POINTER FOR .ASCII MESSAGE 

; PICKUP THE READ LINK ADDRESS 

; PICKUP THE READ BUFFER ADDRESS 

; PICKUP THE READ BUFFER SIZE 

; PICKUP THE WRITE BUFFER ADDRFSS 

;ZERO THE OFFSET 

;SET THE RETURN 

;ZERO THE BYTE NUMBER 

; COMPARE DATA BUFFERS? 

;BR IF YES 

;N0 GO BACK 

; CHECK FOR THE TERMINATION 

;BR IF MORE BYTES TO COMPARE 

J RETURN 

; COUNT THIS BYTE 

; COMPARE READ AND WRITE BUFFER 

;BR IF NOT EQUAL 

; INCREMENT WRITE BUFFER INDEX 

; DON'T LET IT GET BIGGER THAN 3 

;GET THE RECEIVED BYTE 
;FORM ADDRESS 
;GET THE EXPECTED BYTE 
; RECEIVED AND EXPECTED DATA NOT EQUAL 
ji«** ****************** ******** 
ON THE TAPE 

jSAVE THE PC OF THE CALL 

;SET MESSAGE POINTER FOR "WFG" 

;G0 START A "WlFG" 

; ALLOW INTERRUPTS 
;G0 WAIT FOR A FLAG 
;N0 FLAGS OCCURRED 
;N0 INTERRUPT 

; NORMAL RETURN FIND CUT Ih'HAT FLAG 

JRETURN HERE IF "XFER REQ" AND "READY" 
; RETURN HERE IF "XFER REQ" ^l 
; "RETURN HERE IF " READY »«1 AND "ERROR" 
j^READY-sl AND "ERROR'-^I 
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CZTADD. P1 1 23-MAR-78 08:34 ROUTINE TO "WRITE" A RECORD ON THE TAPE 



SEQ 005? 



2532 








• J************ 




2533 








;THIS 


ROUTINE 


WILL WRITE A RECO 


2534 


010554 


011637 


001204 


T.WRIT 


! MOV 


(SP),@#SAVPC 


2535 


010560 


012737 


015353 007304 




MOV 


#MXWRIT,@#MFUNC 


2536 


010566 


017602 


000000 




MOV 


@(SP),R2 


2537 


010572 


062716 


000002 




ADD 


#2,(SP) 


2538 


010576 


012201 






MOV 


(R2)+,R1 


2539 


010600 


005037 


012222 




CLR 


WCRC.WD 


2540 


010604 


005037 


010676 




CLR 


6$+2 


2541 


010610 


012202 






MOV 


(R2)+,R2 


2542 


010612 


003001 






BGT 


2$ 


2543 


010614 


104011 






ERROR 


11 


2544 


010616 


004037 


012224 


2$: 


JSR 


RO,@#DO.CI«D 


2545 


010622 


000103 






XWRITEilNT.ENIGO 


2546 


010624 


005037 


177776 


3$: 


CLR 


@#PS 


2547 


010630 


004037 


011716 




JSR 


R0,@#WAITFLA6 


2548 


010634 


104003 






ERROR 


3 


2549 


010636 


104004 






ERROR 


4 


2550 


010640 


005037 


001254 




CLR 


@#WAITKEY 


2551 


010644 


012737 


000340 17777S 




MOV 


#340,IP#PS 


2552 


010652 


004037 


012014 




JSR 


RO,W FLAGS 


2553 


010656 


104002 






ERROR 


2 


2554 


010660 


000402 






BR 


4$ 


2555 


010662 


104005 






ERROR 


5 


2556 


010664 


104002 






ERROR 


2 


2557 


010666 


005302 




4$: 


DEC 


R2 


2558 


010670 


002417 






BLT 


5$ 


2559 


010672 


005000 






CLR 


RO 


2560 


010674 


156100 


000000 


SS: 


BISB 


0{R1),R0 


2561 


010700 


110015 






MOVB 


RO,@TADB 


2562 


010702 


004737 


012102 




JSR 


. PC,@#DO.CRC 


2563 


010706 


005237 


010676 




INC 


6$+2 


2564 


010712 


042737 


177774 010676 




BIC 


#~C3,6$+2 


2565 


010720 


012777 


012340 170302 




MOV 


^'SERV.IiTAVEC 


2566 


010726 


000736 






BR 


3$ 


2567 


010730 


013761 


012222 000004 


S$: 


MOV 


®#CRC.WD.4(R1) 


2568 


010736 


004037 


012224 




JSR 


RO,@#DO.CMD 


2569 


010742 


000122 






XWRITE!INT.EN!ILBS 


2570 


010744 


005037 


177776 




CLR 


@#PS 


2571 


010750 


004037 


011716 




JSR 


RO,@#WAITFLAG 


2572 


010754 


104003 






ERROR 


3 


2573 


010756 


104004 






ERROR 


4 


2574 


010760 


004037 


012014 




JSR 


RO.W FLAGS 


2575 


010764 


104002 






ERROR 


2 


2576 


010766 


104002 






ERROR 


2 


2577 


010770 


000002 






RTI 




2578 


010772 


104002 






ERROR 


2 



$«*;^**^**4iii:$ 



*************** 

ON THE TAPE 

;SAVE PC OF CALL 

{POINTER FOR .ASCIZ OF "WRITE" 

;GET THE WRITE LINK POINTER 

; ADJUST THE RETURN 

;GET FIRST ADDRESS OF WRITE BUFFER 

; CLEAR THE CRC WORD 

JZERO THE INDEX 

;GET NUMBER OF BYTE TO WRITE 

J CHECK FOR LEGAL NUMBER 

;BAD NUMBER OF BYTES 

;G0 START A "WRITE" 

ALLOW INTERRUPTS 

WAIT FOR A FLAG • 

NO FLAGS OCCURRED 

INTERRUPT FAILED 

CLEAR THE WAIT FOR INTERRUPT KEY 

LOCK OUT THE WORLD 

WAIT FLAG OCCURRED? 

"READY''=0 & "XFER REQ" <^0 

"XFER REO-'I 

"READY" = 1 & "ERROR''=0 

'•READY" = 1 & "ERROR^sl 

NEED TO WRITE A BYTE ON TAPE 

BR IF NO 

PICKUP BYTE FOR TRANSFER 

TRANSFER A BYTE TO THE TAt 1 

CALCULATE CRC FOR THIS BYTE 

INCREASE THE I'^DEX 

KEEP IT LESS THAN 4 

SETUP TO SERVICE THE INTERRUPT 

LOOP 

SAVE THE CRC WORD 

START A "ILBS- 



ALLOW INTERRUPTS 

WAIT FOR A FLAG 

NO FLAG 

NO INTERRUPT 

WHAT FLAG IS SET? 

NONE ("XFER REO»=«0 

"XFER REQ** 

"READY" 

"READY" & "ERROR" 



& «s:eady«««0) 



TA11 MOTION TEST 


CZTAD-C 


CZTADD. 


P11 23-MAR-78 


08:34 


2579 








2580 








2581 


010774 


011637 


001204 


2582 


01 1000 


012737 


015361 


2583 


011006 


017602 


000000 


2584 


011012 


062716 


000002 


2585 


011016 


010200 




2586 


01 1020 


016000 


000034 


2587 


011024 


016037 


000004 


2588 


011032 


012201 




2589 


011034 


012202 




2590 


011036 


003001 




2591 


01 1040 


10401 1 




2592 


01 1042 


005037 


012222 


2593 


011046 


004037 


012224 


2594 


011052 


000105 




2595 


011054 


005037 


177776 


2596 


01 1060 


105011 




2597 


011062 


004037 


011716 


2598 


011066 


104003 




2599 


011070 


104004 




2600 


011072 


005037 


001254 


2601 


011076 


012737 


000340 


2602 


01 1104 


004037 


012014 


2603 


01 1 1 10 


104002 




2604 


011112 


000402 




2605 


011114 


104005 




2606 


011116 


000413 




2607 


011120 


005302 




2608 


01 1122 


002431 




2609 


011124 


005000 




2610 


011126 


151500 




2611 


011130 


1 10021 




2612 


011132 


004737 


012102 


2613 


011136 


012777 


012340 


2614 


01 1144 


000743 




2615 


011146 


010237 


001166 


2616 


011152 


001414 




2617 


011154 


013746 


001172 


2618 


01 1160 


005037 


001172 


2619 


01 1164 


016646 


000004 


2620 


01 1170 


016646 


000004 


2621 


011174 


104013 




2622 


011176 


012637 


001172 


2623 


01 1202 


000002 




2624 


01 1204 


104002 




2625 


011206 


013737 


012222 


2626 


01 1214 


004037 


012224 


2627 


011220 


000124 




2628 


011222 


11 1537 


001214 


2629 


011226 


005037 


177776 


2630 


011232 


004037 


011716 


2631 


011236 


104003 




2632 


011240 


104004 




2633 


011242 


111537 


001215 


2634 


011246 


004037 


012014 
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ROUTINE TO "READ" A RECORD 

•THIS ROUTINE WILL READ A RECORD FROfli 



SEQ 9058 



T.READ: 


MOV 


(SP),§>#SAVPC 




MOV 


#MXREAD,@#MFUNC 




MOV 


@(SP).R2 




ADD 


#2.(SP) 




MOV 


R2,R0 




MOV 


WLNK1-RLNK1(R0),R0 




MOV 


4(R0),RCRC0 




MOV 


(R2)+,R1 




MOV 


JR2)+,R2 




BGT 


2$ 




ERROR 


11 


2$t 


CLR 


@#CRC.WD 




JSR 


RO,#<?DO.CMD 




XREADtlNT.ENIGO 


3$ 5 


CLR 


@#PS 




CLRB 


(R1) 




dSR 


R0,#ji!WAITFLA6 




ERROR 


3 




ERROR 


4 




CLR 


@#WAITKEY 




MOV 


<^ 340, #4' PS 




USR 


R0,f«/5( FLAGS 




ERROR 


2 




BR 


4$ 




ERROR 


5 




BR 


8$ 


4$: 


DEC 


R2 




BLT 


5$ 




CLR 


RO 




BISB 


fiTADB.RO 




MOVB 


R0,(R1)+ 




dSR 


PC,@#DO.CRC 




MOV 


*SfSERV,@TAVEC 




BR 


as 


3$: 


MOV 


R2,@#$TMP0 




BEO 


9$ 




MOV 


®#SESCAPE.-CSP) 




CLR 


i>#$ESCAPE 




MOV 


4{SP),-(SP} 




MOV 


4(SP),-CSP) 




ERROR 


13 




MOV 


(SP)-|.,@#$ESCAPE 




RTI 




9S: 


ERROR 


2 


5$: 


MOV 


@l^CRC.WD.@i¥RCR61 




JSR 


R0.@«D0.CMD 




XREADilNT.ENflLBS 




MOVB 


©TADB.WRCRCa 




CLR 


@#PS 




USR 


RO,€>#WAITFLAQ 




ERROR 


3 




ERROR 


4 




MOVB 


@TADB,RCRCa-5-t 




USR 


RO.WfLAGS 



THE TAPE 

;SAVE THE PC OF THE CALL 

;SET POINTER OF .ASCIZ MESSAGE 

;GET THE READ LINK POINTER 

; ADJUST FOR RETURN 

; PICKUP AND SAVE THE "CRC THAT 

; WAS CALCULATED ON THE WRITE 

; DATA FOR THIS BLOCK 

;GET ADDRESS OF BUFF.ER 

;GET NUMBER OF BYTES 

;MAKE SURE NUMBtl IS LEGAL 

; ILLEGAL NUMBEk OF BYTES 

; CLEAR CRC WORD 

;G0 START A "READ" 



ALLOW INTERRUPTS 

SET TERMINATOR IF LAST BYTE 

WAIT FOR A FLAG 

NONE OCCURRED 

NO INTERRUPT 

CLEAR THE WAIT ON INTERRUPT KEY 

LOCK OUT ALL INTERRUPTS 

WHAT PLAG OCCURRED 

7UNKN0WN FLAG 

"XFER REQ" 

"READY" 

"ReADY" WITH "ERROR" 

READ A BYTE? 

BR IF NO 

JREAD ONE BYTE 

;AND PUT IT IN. THE BUFFER 

; CALCULATE CftC FOR THIS BYTE 

; SETUP TO SERVICE THE INTERRUPT 

;LOOP 

;GET NUMBER OF BYTES NOT READ 

JSKIP OUT IF 

;SAVE THE ESCAPE ADDRESS 

;N0 ESCAPE DESIRED 

;COPY THE STACK 

{BLOCK READ SHORT 

; RESTORE ESCAPE ADDRESS 

; LEAVE 

; ERROR OCCURRED DURING READ 

;SAVE THE CALCULATED CRC 

;D0 AN I LBS 

JSAVE 1ST BYTE OF CRC FRO^ TAtI 

; ALLOW INTERRUPTS 

-.WAIT ON FLAG 

;NONE OCCURRED 

{INTERRUPT FAILED 

jSAVE 2ND BYTE OF CRC FROM TA11 

; CHECK FLAGS 
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SSQ 005@ 



Sm 00S9 



2635 


01 1252 


104002 




2636 


011254 


104002 




2637 


011256 


000002 




2638 


011260 


032714 


037000 


2639 


011264 


001401 




2640 


011266 


104002 




2641 


01 1270 


032777 


000020 


2642 


011276 


001001 




2643 


011300 


104012 




2644 


011302 


000002 




2645 









ERROR 2 {UNKNOWN FLAG 

ERROR 2 {"XFEH REQ" 

RTI -."READY" 

BIT #LEADERIWRTL0CK!F6APITIMERR!0FFLINE,®TACS 

BEQ 6S :BR IF CRC ERROR 

ERROR 2 {ERROR OCCURRED 

BIT #SW04,#SWR {IGNORE CRC ERRORS? 

BNE 7$ ;BR IF YES 

ERROR 12 {"READY" AND "CRC ERROR 

RTI I IT WAS A CRC ERROR AND WE ARE IGNORING THEM 

; SO RETURN TO CALLER 
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;THIS ROUTINE WILL BACK SPACE ONE FILE GAP 



S£Q 0060 



2646 








2647 








2648 


011304 


01 1637 


001204 


2649 


011310 


012737 


015433 


2650 


011316 


004037 


012224 


2651 


011322 


000107 




2652 


011324 


005037 


177776 


2653 


011330 


004037 


011716 


2654 


011334 


104003 




2655 


011336 


104004 




2656 


011340 


004037 


012014 


2657 


011344 


104002 




2658 


01 1346 


104002 




2659 


011350 


000401 




2660 


011352 


104002 




2661 


011354 


032714 


004000 


2662 


011360 


001401 




2663 


011362 


000002 




2664 


011354 


1040CS 




2665 








2666 








2667 








2668 








2669 


011366 


011637 


001204 


2670 


011372 


012737 


015457 


2671 


011400 


004037 


012224 


2672 


011404 


0001 11 




2673 


011406 


005037 


177776 


2674 


011412 


004037 


011716 


2675 


01 1416 


104003 




2676 


011420 


104004 




2677 


011422 


004037 


012014 


2678 


011426 


104002 




2679 


011430 


104002 




2680 


011432 


000002 




2681 


011434 


104002 





********* «1* * 



MOV (SP),@/!^SAVPC 
MOV #MXBSFG,®#MFUNC 
JSR R0,@#DO.CMD 
XBSFGilNT.ENIGO 



CLR 

USR 

ERROR 

ERROR 

JSR 

ERROR 

ERROR 

BR 

ERROR 

BIT 

BEQ 

RTI 

ERROR 



@#PS 

RO,@#WAITFLAG 

3 

4 

R0.#^ FLAGS 

2 

2 

2$ 

2 

#FGAP,®TACS 

3$ 



SAVE PC OF CALL 

SAVE POINTER OF .ASCI2 NAME 

START A "BSFG* 

ALLOW INTERRUPTS 

WAIT ON FLAG 

NO FLAG 

FLAG DIDN'T INTERRUPT 

FIND OUT WHAT FLAG OCCURRED 

UNKNOWN 

"XFER REO" 

"READY" 

"READY" & "ERROR" 

IN A FILE GAP? 

BR IN NO 

GO BACK 

"BSFG" DIDN'T STOP IN A FILE 



•J********************************************!! 

JTHIS ROUTINE WILL BACK SPACE ONE BLOCK GAP 



i;i:4!!i(^««*«$]$ii«r«:^i«ii$$!^it( 



MOV (SP),®>#SAVPC 
MOV )S«MXBSBG.@#MFyNC 
USR RO.WDO.CMD 
XBSBGIINT.ENIGO 



;SAVE THE PC OF THE CALL 
JMESSAGE POINTER 
; START A "BSBG" 



CLR 


@#PS 


; ALLOW INTERRUPTS 


JSR 


RO,©#WAITFLAG 


;WAIT FOR A FLAG 


ERROR 


3 


;N0 FLAG OCCURRED 


ERROR 


4 


;FLAG DIDN'T INTERRUPT 


JSR 


RO,M FLAGS 


JWHAT FLAG QCCUr,RED 


ERROR 


2 


; UNKNOWN 


ERROR 


2 


;»XFER REO" 


RTI 




; "READY"— GO BACK TO USER 


ERROR 


2 


; -READY- a- ERROR « 
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SEQ GOSt 



2682 








2683 








2684 


011436 


01 1637 


001204 


2685 


011442 


012737 


015366 


2686 


011450 


004037 


012224 


2687 


011454 


000113 




2688 


011456 


005037 


177776 


2689 


011462 


004037 


011716 


2690 


011466 


104003 




2691 


01 1470 


104004 




2692 


011472 


004037 


012014 


2693 


011476 


104002 




2694 


011500 


104002 




2695 


011502 


000401 




2696 


011504 


104002 




2697 


011506 


032714 


004000 


2698 


011512 


001401 




2699 


011514 


000002 




2700 


011516 


104006 




2701 








2702 








2703 








2704 








2705 


011520 


011637 


001204 


2706 


011524 


012737 


015411 


2707 


011532 


004037 


012224 


2708 


011536 


000115 




2709 


011540 


005037 


177776 


2710 


011544 


004037 


011716 


2711 


011550 


104003 




2712 


011552 


104004 




2713 


011554 


004037 


012014 


2714 


011560 


104002 




2715 


011562 


104002 




2716 


011564 


000002 




2717 


011566 


005737 


001246 


2718 


011572 


002001 




2719 


011574 


000002 




2720 


011576 


104002 





;THIS ROUTINE WILL SPACE FORWARD 
T.SFFG: MOV (SP),@#SAVPC 

MOV #MXSFFG,@#MFUNC 
JSR R0,@#DO.CMD 
XSFFGIINT.ENIGO 



************** 



1$: 



CLR 


P#PS 


JSR 


RO.MWAITFLAQ 


ERROR 


3 


ERROR 


4 


JSR 


R0,«>#FLAGS 


ERROR 


2 


ERROR 


2 


BR 


2$ 


ERROR 


2 


BIT 


*FGAP,f>TACS 


BEO 


3$ 


RTI 




ERROR 


6 



•J******************************* 
5 THIS ROUTINE WILL SPACE FORWARD 
T.SFBG: MOV (SP),®#SAVPC 

MOV #MXSFBG,#i5^MFUNC 
1$: JSR RO,@#DQ.CMD 

XSFBGIINT.ENIGO 



a§: 



CLR 


^ifPS 


JSR 


R0,##WAITFLAG 


ERROR 


3 


ERROR 


4 


JSR 


■ R0,®# FLAGS 


ERROR 


2 


ERROR 


2 


RTI 




TST 


@#ASKKEY 


BGE 


2$ 


RTI 




ERROR 


2 



*************** 
FOR ONE FILE GAP 

;SAVE PC OF CALL 

; POINTER TO .ASCIZ MESSAGE 

; START A "SFFG" 



ALLOW INTERRUPTS 

WAIT FOR A FLAG 

FLAG FAILED TO OCCUR 

FLAG DIDN'T INTERRUPT 

WHAT FLAG OCCURRED 

UNKNOWN 

"XFER REQ" 

"READY" 

"READY" AND "ERROR" 

DID "SFFG" STOP IN A "FILE GAP«7 

BR IF NO 

RETURN TO CALLER 

"SFFG" DIDN'T STOP IN A FILE GAP 



***l^** ****************** ******«!* 

ONE BLOCK GAP 

SAVE PC OF CALL 

POINTER TO .ASCIZ i^ESSAGE 

START A "SFBG" 

ALLOW INTERRUPTS 

WAIT FOR A FLAG 

NO FLAG 

NO INTERRUPT 

FIND OUT WHAT FLAG 

UNKNOWN 

"XFER REO" 

■^READY" 

RUNNING UNDER MANUAL LOOPING? 

BR IF NO 

RETURN 

"READY" AND "ERROR" 



TA11 MOTION TEST CZTAD-D MACY11 3°^^1°52)23-MAR-78 08:36 PAGE 62 
CZTADD.P11 23-MAR-78 08:34 ROUTINE TO REWIND THE FAPt 

WILL REWIND THE TAPE 



SEO ooes 



2721 
2722 








. • «4i««4< 


«:ti !«:«««« 








•THIS ROUTINE \ 


2723 


011600 


011637 


001204 


t.rwnd: 


MOV 


2724 


011604 


012737 


015344 007304 


MOV 


2725 


01 1612 


004037 


012014 




JSR 


2726 


011616 


104001 






ERROR 


2727 


011620 


104001 






ERROR 


2728 


011622 


000411 






BR 


2729 


011624 


005777 


167426 




TST 


2730 


011630 


001406 






BEO 


2731 


011632 


032714 


020000 




BIT 


2732 


011636 


001403 






BEO 


2733 


01 1640 


005077 


167412 




CLR 


2734 


011644 


104001 






ERROR 


2735 


011646 


004037 


012224 


t$: 


JSR 


2736 


011652 


000117 






XRWND! 


2737 


011654 


005037 


177776 




CLR 


2738 


011660 


004037 


0t1?l6 




JSR 


2739 


011664 


104003 






ERROR 


2740 


01 1666 


104004 






ERROR 


2741 


011670 


004037 


012014 




JSR 


2742 


011674 


104002 






ERROR 


2743 


011676 


104002 






ERROF) 


2744 


011700 


000401 






BR 


2745 


011702 


104002 






ERROR 


2746 


011704 


032714 


020000 


2$: 


BIT 


2747 


011710 


001401 






BEO 


2748 


011712 


000002 






RTI 


2749 


011714 


104007 




3$: 


ERROR 



**************** 



(SP),f>#SAVPC 


;SAVE PC OF CALL 


#MXRWND,@#MFUNC 


5 POINTER TO .ASCIZ i^ESSAGE 


R0,®# FLAGS 


; CHECK TH£ FLAGS 


1 


;N0 FLAGS 


1 


r"XFER REO" 


1$ 


; NORMAL RETURN 


@|RWDFLG 


;WAS LAST FUNCTION A REWIND? 


1$ 


;BR IF YES 


/^ LEADER, @TACS 


lON CLEAR LEADER? 


1$ 


;BR IF NO 


PRWDFLG 


; ALLOW THIS ERROR ONLY ONE TIME 


1 


;0N CLEAR LEADER BUt SHOULDN't BE 
;G0 START A "^tWIND" 


R0,f#D0.CMD 


1NT.6N!G0 




l>#PS 


; ALLOW INTERRUPTS 


ftO,f#WAITFL&6 


;WAIT ON FLAG 


3 


;NQ FLAG OCCURRED 




;N0 INTERRUPt 


RO.MFLAQS 


;WHAT FLAG OCCURRED 


2 


; UNKNOWN 


2 


l»XFER REQ" 


2$ 


;" READY" 


2 


; "READY" & "ERROR" 


# LEADER, ©TACS 


;0N "CLEAR LEADER"? 


3$ 


;BR IF NO 



YES RETURN 

"REWIND" FAILED TO SO TO "CLEAR LEADER'' 
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SEO 0063 



CZTADD.P11 



2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 



SEO 00S3 



011716 
011716 
011722 
011730 
011736 
011740 
011746 
011752 
011754 
011760 
011762 
011766 
011770 
011772 
011774 
012000 
012002 
012004 
012006 
012010 
012012 



005037 
013737 
032777 
001403 
012737 
032714 
001007 
005237 
001372 
005337 
100367 
000405 
005720 
005737 
001401 
005720 
000200 
000000 
000000 
000000 



.!»>!i)8!i8!i!i*«********)!>**«****#****««*****««*********** ************ 

THIS ROUTINE IS USED TO WAIT ON A FLAG 



012006 
012012 
000040 

177777 
000240 



JSR 

RETURN 
RETURN 
NORMAL 

WAITFLAG: 

CLR 



012010 
167202 



3S: 

LOCNT 5 
HICNT! 
SWAXCNT 



MOV 

BIT 

BEQ 

MOV 

BIT 

BNE 

INC 

BNE 

DEC 

BPL 

BR 

TST 

TST 

BEQ 

TST 

RTS 





Q 



RO.WWAITFLAG 
FOR NO FLAGS 
FOR NO INTEI^WJPT 
RETURN 



LOCNT 

KiAXCNT, HICNT 

ifSWOS.^SWR 

1$ 

<y-1,WAITKEY 

#TR.REOIREADY.!^TACS 

2$ 

LOCNT 

IS 

HICNT 

1$ 

3$ 

(R0)4- 

WAITKEY 

3$ 

(R0)4> 

RO 



{ZERO THE LOW COUNTER 

;SET THE HIGH COUf-iTER TO MAX. COUNT 

J RUNNING WITH INTERRUPTS? 

;BR IF YES 

;SET THE INTERRUPT OCCURRED FLA© 

;TEST FOR FLAGS 

;BR IF A FLAG IS UP 

; COUNT THE LOW COUNTER 

•.LOOP IF NOT ZERO 

sCOUT THE HIGH COUNTER 

;LOOP IF NOT NEG. 

; LEAVE 

?I^*GREMENT THE RETURN ADDRESS 

-.LOOK AT THE WAIT ON INT, KEY 

•BR IF NOT SEt 

; INCREMENT THE RETURM ADDRESS 

IRETMRN TO USER 
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SEQ 0084 



SEO 93S4 



2780 








2781 








2782 








2783 








2784 








2785 








2786 








2787 








2788 








2789 








2790 








2791 








2792 


012014 


032714 


000240 


2793 


012020 


001427 




2794 


012022 


005720 




2795 


012024 


105714 




2796 


012026 


100424 




2797 


012030 


005720 




2798 


012032 


032777 


000100 


2799 


012040 


001414 




2800 


012042 


010046 




2801 


012044 


010146 




2802 


012046 


013700 


001264 


2803 


012052 


013701 


001266 


2804 


012056 


062700 


000001 


2805 


012062 


005501 




2806 


012064 


001374 




2807 


012066 


012601 




2808 


012070 


012600 




2809 


012072 


005714 




2810 


012074 


100001 




2811 


012076 


005720 




2812 


012100 


000200 





THIS ROUTINE IS USED TO DETERMINE WHAT FUG IS SET 



3$: 

LVFLAG! 



JSR 

RETURN 

RETURN 

RETURN 

RETURN 

BIT 

BEQ 

TST 

TSTB 

BMI 

TST 

BIT 

BEO 

MOV 

MOV 

MOV 

MOV 

ADD 

ADC 

BNE 

MOV 

MOV 

TST 

BPL 

TST 

RTS 



RO.tAfFLAGS 

FOR UNKNOWN FLAG 

FOR "TRANSFER REQUEST" 

FOR "READY" 

FOR "READY" & "ERROR" 



#TR.REOtREADY, 

LVFLAG 

(RO)-l- 

@TACS 

LVFLAG 

(R0) + 

^swoe.PSWR 

3$ 

RO,-(SP) 

R1,-(SP) 

®#STALL,RO 

@#STALL-S-2,R1 

R1 

1$ 

(SP)-l-,R1 

(SP)+,RO 

@TACS 

LVFLAG 

(R0)4. 

RO 



®»TACS ; CHECK FOR "XFER REO« OR " 
;BR IF NO FLAGS 
INCREMENT RETURN ADDRESS 
;CHECK FOR "XFER REO» 
;BR IF SET 

•.INCREMENT RETURN ADDRESS 
:STALL? 
; BR IF NO 
JJPUSH RO ON STACK 
nPUSH R1 ON STACK 

;GET STALL TIME 

; STALL 

{LOOP 
;;POP STACK INTO R1 
JJPOP STACK INTO RO 

;IS "ERROR" SET 

;BR IN NO "ERROR" 

; INCREMENT RETURN ADDRESS 
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SEQ 0065 



SEQ 0065 



2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 



012102 
012102 
012104 
012106 
012110 
012112 
012114 
012122 
012126 
012130 
012132 
012136 
012140 
012142 
012144 
012146 
012150 
012152 
012154 
012156 
012162 
012164 
012166 
012170 
012172 
012174 
012176 
012200 
012202 
012206 
012210 
012212 
012214 
012216 
012220 
012222 



010046 
010146 
010246 
010346 
010446 
012737 
013703 
005001 
010302 
042702 
006000 
006101 
010104 
040204 
040102 
050402 
006002 
105006 
012701 
010104 
040304 
040103 
050403 
006003 
005327 
000000 
003352 
010337 
012604 
012603 
012602 
012601 
012600 
000207 
000000 



000010 
012222 



•****«l^*«*«*««*)**«*!j!*l8l*«lf!«!|l****ljt******«8!********* **************** 

THIS ROUTINE WILL CALCULATE THE CRC 
call: 

JSR PC,##DO.CRC ;R0=1 BYTE OF DATA 



PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 

;MAKE EIGHT ITERATIONS 

; PICKUP THE CRC WORD 

;GET THE PARTIAL CRC WORD 

; STRIP AWAY EVERYTHING BUT BITOO 

;PULL OFF THIS BIT 

;AND SETUP TO XOR IT 

{FORM THE XOR OF "Rl" AND "RS" 



{RESULTS TO "RS" 

{FORM THE XOR OF '•R1'' AND ''RS" 
{RESULTS TO "RS" 

{BR IF MORE BITS TO DO 

;POP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
JPOP STACK INTO R1 
;POP STACK INTO RO 

{CRC WORD 



DO. CRC : 








MOV 


RO,-{SP) 




MOV 


RI.-(SP) { 




MOV 


R2,-(SP) { 




MOV 


R3.-(SP) { 




MOV 


R4,-CSP) { 




MOV 


#8., 3$ 




MOV 


CRC.W0,R3 


1$: 


CLR 


R1 




MOV 


R3,R2 




BIC 


(Sf^CBITOCRa 




ROR 


RO 




ROL 


R1 




MOV 


R1,R4 




SIC 


R2,R4 




BIC 


R1,R2 




BIS 


R4,R2 




ROR 


R2 




BCC 


2$ 




MOV 


lS'BIT14IBIT01,R1 




MOV 


R1,R4 




BIC 


R3,R4 




BIC 


R1 ,R3 




BIS 


R4,R3 


2S: 


ROR 


R3 




DEC 


■ (PC)+ 


3$: 









BGT 


1$ 




MOV 


RS.CRC.WO 




MOV 


(SP)4.,R4 { 




MOV 


(SP)+,R3 { 




MOV 


CSP)4-,R2 { 




MOV 


(SP)-|.,R1 { 




MOV 


CSP)+,RO 




RTS 


PC 


CRC. WD 








cztadd.ph 



2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2R72 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
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MOTION TEST_^^^__^^ CZTAU U iviAUT ROUTINE TO PERFORM THE REQUESTED FUNCTION 



SEO C}066 



012224 
012226 
012234 
012236 
012242 
012250 
012252 
012256 
012264 
012270 
012274 
012276 
012304 
012306 
012312 
012314 
012320 
012322 
012324 
012330 
012334 
012336 



010146 
012737 
012001 
042701 
032777 
001405 
042701 
012777 
005037 
032701 
001403 
012777 
110114 
032701 
001403 
032714 
001375 
005101 
042701 
010177 
012601 
000200 



THIS ROUTINE WILL LOAD THE LOW BYTE OF TAGS WITH THE DESIRED FUNCTION 



dSR RO,@#DO,CMD 
DESIRED FUNCTIN 
RETURN 



000340 177776 

177640 

000040 166670 

000100 

012356 166744 

001254 

000100 

012340 166724 



177761 
166722 



m.cmt MOV 

MOV 
MOV 
BIG 
BIT 
BEO 
BIG 
MOV 
4$: CLR 
BIT 
BEO 

mv 

MOVB 

BIT 

BEQ 

BIT 

BNE 

COM 

BIG 

MOV 

MOV 

RTS 



R1,~(.SP) 

iS«340,@#PS 

(R0)+,R1 

#'^G<INT.EN!ILBSIFUNCTI0N 

#&WOS,@SWR 

4$ 

#INT.EN,R1 

jifBAipNT.^TAVEC 

WAITKEY 

#INT.EN,R1 

3$ 

#SERV,@TAVEC 

R1 ,@TACS 

#G0,R1 

2$ 

# READY, ©T ACS 

1$ 

R1 

#*C<FUNCTlON>,ai 

R1 ,@RW0FLG 

(SP)+,R1 

RO 



iSAVE R1 

ILOCK OUT ALL JNERRUPTS 

;GET THE COMMAND 

IG0>,R1 :STRIP AWAY JUNK 

iWITH OR l^ITHOUT INTERRUPTS 

IBR IF WITH 

! CLEAR INTERRUPT ENABLE IF SET 

; SETUP TO CATCH BAD INTERRUPT 

;ZERO THE WAIT ON INTERRUPT KEY 

; RUNNING WITH INTERRUPTS? 

;BR IF NO 

[SETUP TO SERVICE TH§ INTERRUPT 

;LOAD THE CO^^ND 

;is GO Sit M k m"? 

;BR IF GO »0 

;WAIT FOR "READY" TO GLEAR 

;SET OR CLEAR REWIND FLAG 
; EXTRACT FUNCTION BITS 
iAN© SAVE AS THE REWIND FLAG 
iGEt R1 B^K 
; RETURN tO USER 



•THIS ROUTINE WILL SERVICE ALL LEGAL INTERRUPTS 



012340 012737 177777 
012346 012777 012356 
012354 000002 



012356 011637 001204 
012362 104014 



001 2S4 
1 66654 



MOV 
MOV 
RTI 



#-1,©/S'WAITKEY 
i?BADINT,«PTAVEC 



;SET THE WAIT KEY 

;SET TO CATCH ILLEGAL INTERRUPTS 



..********:»***«,}l******************«'***'«'**'^*'****** **************** 

JthIS ROUTINE WILL CATCH ILLEGAL INTERRUPTS FROM THE TA11 



BAD I NT: MOV 

ERROR 



(SP),@#SAVPC 
14 



;SAV£ WHERE WE WERE AT 

I ILLEGAL INTERRUPT OCCURRED 



TA11 MOTION TEST 
CZTADD.P11 23- 
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«,********* MANUAL ADJUSTMENT ROUTINES ********** 



SEQ 0067 



SEQ 0067 



2898 








2899 








2900 








2901 








2902 








2903 








2904 








2905 








2906 








2907 








2908 








2909 








2910 








2911 








2912 








2913 








2914 








2915 








2916 
2917 
2918 








012364 


012706 


001100 


2919 


012370 


013704 


001220 


2920 


012374 


013705 


001224 


2921 


012400 


000005 




2922 


012402 


012737 


012364 


2923 


012410 


104422 




2924 


012412 


11.2714 


000017 


2925 


012416 


032714 


000040 


2926 


012422 


001775 




2927 


012424 


104412 




2928 


012426 


032714 


020000 


2929 


012432 


001774 




2930 


012434 


000000 




2931 


012436 


000752 




2932 








2933 








2934 








2935 








2936 








2937 








2938 








2939 








2940 








2941 








2942 








2943 








2944 








2945 


012440 


004737 


013106 


2946 


012444 


012706 


001100 


2947 


012450 


013704 


001220 


2948 


012454 


013705 


001224 


2949 


012460 


000005 




2950 


012462 


012737 


012444 


2951 


012470 


104422 




2952 


012472 


112714 


000017 


2953 


012476 


032714 


000040 



::::;::::::.*******************-----r:r:.:::::;rTrTHrT^^^ 

NOTE. W*# S^^^f if USING SOFTWARE SWITCH REGISTER THE 
PROGRAM MUST HAVE BEEN STARTED AT A 
NORMAL STARTING ADDRESS ."Rf,, /O THAT 
THE AUTO-SIZING ROUTINE CAN SET UP ADDRESS 
176 AS THE S0FTWA8E SWITQH REGISTER 



.^*»sf.®i************«* ******** 

WRITE FILE GAPS FROM "BOT 
; START AT 220 
I THIS ROUTINE CAN BE USED 
JTHE "WRITE DELAY MONO". 

.*«.*i8.***«***** ****** *t********** 



^FGSUB: MOV 
MOV 



001I1Q 



MOV 

RESET 

MOV 

SELDRV 

MOVB 

BIT 

BEQ 

WFG 

BIT 

BEO 

HALT 

BR 



#STACK.SP 

MTAGSL.TACS 

MTADBL.TADB 

#WFGSUB,@#$LPERR 

i¥XRWNDIGO.#TACS 

#READY,#TACS 

100$ 

# LEADER, @T^CS 
1$ 

WFGSUB 



******************************** 
TO "EOT" 

TO ADJUST THE "WRITE GAP UOm" AND 

*«**!»***«*********************** 

{KEEP THE STACK OUT OF THE WAY 
; SETUP THE TA1 1 STATUS AND 
-.DATA BUFFER REGISTERS 
; RESET THE WORLD „„„»,«« 

; SETUP THE l60P ON ERROR ADDRESS 
•SELECT THE DRIVE 
;SEND TAPE TO "BOT" 
; WAIT ON READY 

I WRITE A FILE GAP 
•AT "CLEAR LEADER"? 
;BR IF NO 
;STOP IF YES 
;LOOP ON CONT. 



..^*************************************'^************************ 

l' WRITE CONTINUOUS BLOCKS OF DATA 

{START AT 224 _^ ,,„^e 

I THE PROGRAM WILL HALT THREcC3) ' I^ff 

AFTER EACH HALT SET THi SWR AND PRESS CONTINUE 
l^llf^^Zrl swa<7:0> - NUMBER OF BYTES ?m Bi-OCK 
•HALT 2 -• r- SWR<7:0> ^ PATTERN DESIRED 
IhalT 3 —- SWR<1S:0> « OPERATIONAL SWITCH SETTINGS 
'?HIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 
ItH I ROUT nI iSpPoiTS TKE S/W SWITCH REG FUNCTIONS 



WRTSUB 
WLOOP 



001110 



100$: 



JSR 

MOV 

MOV 

MOV 

RESET 

MOV 

SELDRV 

MOVB 

BIT 



PC^#SETBUF ;GET BLOCK SIZE AND PATTERN 

SStIcK SP KEEP THE STACK OUT OF THE WAV 

@#tacsL!tacs ; setup the taii status and 

WTADBL TAoi '.DATA BUFFER REGISTERS 

{RESET THE WORLD 
^MLOOP.WSLPERR {SETUP THE LOOP ON ERR^R ADDRESS 

•SELECT THE DRIVE 
i^XR«ND!GO.#TACS JSEND TAPE TO "QOT" 
#RiA6V.@TACS ',mU ON rea6y 



CZTADD. 


pn 23-MAR-78 


08:34 


2954 


012502 


001775 




2955 


012504 


104413 


017042 


2956 


012510 


032714 


020000 


2957 


012514 


001773 




2958 


012516 


000000 




2959 


012520 


000751 




2960 








2961 








2962 








2963 








2964 








2965 








2966 








2967 








2968 


012522 


012706 


001100 


2969 


012526 


013704 


001220 


2970 


012532 


013705 


001224 


2971 


012536 


000005 




2972 


012540 


012737 


012522 


2973 


012546 


104422 




2974 


012550 


112714 


000017 


2975 


012554 


032714 


000040 


2976 


012560 


001775 




2977 


012562 


104414 


017006 


2978 


012566 


012706 


001100 


2979 


012572 


032714 


020000 


2980 


012576 


001351 




2981 


012600 


104423 




2982 


012602 


017006 




2983 


012604 


017042 




2984 


012606 


000765 




2985 








2986 








2987 








2988 








2989 








2990 








2991 








2992 








2993 








2994 








2995 








2996 
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WRITE 


CONTINUOUS BLOCKS OF DATA 




BEQ 


100$ 




WRITE 


,WLNKX 


SWRITE A BLOCK 


BIT 


PLEADER, @TACS 


;AT "CLEAR LEADER"? 


BEQ 


IS 


;BR IF NO 


HALT 




;STOP IF "EOT" 


BR 


WLOOP 


;loop if CONT. 



SEQ 0068 



; ;*«««** 



**************************************************** 

READ AND COMPARE CONTINUOUS BLOCKS OF DATA 

; START AT 230 

5 THIS ROUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO" 

;AND THE "THRESHOLD POT". 

-.KEEP THE STACK OUT OF THE WAY 
; SETUP THE TA11 STATUS AND 
;DATA BUFFER REGISTERS 
; RESET THE WORLD 
; SETUP THE LOOP ON ERROR ADDRESS 
} SELECT THE DRIVE 
;SEND TAPE TO "BOT" 
JWAIT ON READY 

:READ A BLOCK 

jINlt. IN CASE OF ERROR 

;AT "CLEAR LEADER"? 

;BR IF YES LOOP 

; COMPARE THE READ AND WRITE BUFFERS 
; LINK TO THE READ BUFFER 
I LINK TO THE WRITE BUFFER 



WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 

; START AT 234 

;THE PROGRAM WILL HALT THREEO) TIMES 

; AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

jHALT 1 SWR<7:0> » NUMBER OF BYTES PER BLOCK 

;HALT 2 SWR<7:0> = PATTERN DESIRED 

JHALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

;THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 
jAND THE "GAP TIME MONO". 



• ;***« 






RDSUB: 


MOV 


#STACK,SP 




MOV 


®#TACSL,TACS 




MOV 


WTADBL.TADB 




RESET 






MOV 


#RDSUB,@ii^SLPERR 




SELDRV 






MOVB 


#XRWND!GO.@TACS 


100$: 


BIT 


#READY,@TACS 




BEO 


100$ 


1$: 


READ 


.RLNKX 




MOV 


#STACK,SP 




BIT 


# LEADER. @T ACS 




BNE 


RDSUB 




BLKCMP 






RLNKX 






WLNKX 






BR 


1$ 
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CZTADD. P1 1 23-MAR-78 08:34 WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 



SEQ 006@ 



2997 








2998 








2999 


012610 


004737 


013106 


3000 


012614 


012706 


001100 


3001 


012620 


013704 


001220 


3002 


012624 


013705 


001224 


3003 


012630 


000005 




3004 


012632 


012737 


012614 


3005 


012640 


104422 




3006 


012642 


112714 


000017 


3007 


012646 


032714 


000040 


3008 


012652 


001775 




3009 


012654 


104412 




3010 


012656 


032714 


020000 


3011 


012662 


001005 




3012 


012664 


104413 


017042 


3013 


012670 


032714 


020000 


3014 


012674 


001767 




3015 


012676 


000000 




3016 


012700 


000745 




3017 








3018 








3019 








3020 








3021 








3022 








3023 








3024 








3025 








3026 


012702 


012706 


001100 


3027 


012706 


013704 


001220 


3028 


012712 


013705 


001224 


3029 


012716 


000005 




3030 


012720 


012737 


012702 


3031 


012726 


104422 




3032 


012730 


112714 


000017 


3033 


012734 


032714 


000040 


3034 


012740 


001775 




3035 


012742 


104414 


017006 


3036 


012746 


012706 


001100 


3037 


012752 


032714 


020000 


3038 


012756 


001351 




3039 


012760 


104423 




3040 


012762 


017006 




3041 


012764 


017042 




3042 


012766 


104420 




3043 


012770 


032714 


020000 


3044 


012774 


001342 




3045 


012776 


000761 




3046 








3047 








3048 








3049 








3050 








3051 








3052 









;THIS ROUTINE SUPPORTS THE 



WGPBLK: 


JSR 


PC,@*SETBUF 


WGBLOP: 


MOV 


#STACK,SP 




MOV 


©(S'TACSL.TACS 




MOV 


@#TADBL,TADB 




RESET 






MOV 


#WGBLOP,@#$LPER 




SELDRV 






MOVB 


4!XRWNDIG0.@TACS 


100$: 


BIT 


)S(READY,®TACS 




BEO 


100$ 


1$: 


WFG 






BIT 


<i* LEADER, @TACS 




BNE 


2$ 




WRITE 


.WLNKX 




BIT 


# LEADER. ©TACS 




BEO 


1$ 


2S: 


HALT 






BR 


WG3L0P 



S/^ SWITCH REG FUNCTIONS 

;GET BLOCK SIZE AND PATTERN 

;KEEP THE STACK OUT OF THE WAY 

; SETUP THE TA11 STATUS AND 

;DATA BUFFER REGISTERS 

; RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 

; SELECT THE DRIVE 

;SEND TAPE TO "BOT" 

{WAIT ON READY 

;WRITE A FILE GAP 

|AT "CLEAR LEADER"? 

I BR IF YES 

;WRITE A BLOCK 

;AT "CLEAR LEADER"? 

;BR IF NO 

jSTOP AT "EOT« 

; START OVER ON CONT. 



J*****!?!********************************************** *********** 

READ AND COMPARE A BLOCK OF DATA AND A FILE GAP 

; START AT 240 

jTHIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE 

;IT CAN BE USED TO ADJUST THE "SIGNAL MONO", THE THRESHOLD POT" 

;AND THE -TAPE BLANK MONO". 

• ij.**!^!**********!?!***********!!!***************** ******************* 

KEEP THE STACK OUT OF THE WAY 

SETUP THE TA11 STATUS AND 

DATA BUFFER REGISTERS 

RESET THE WORLD 

SETUP THE LOOP ON ERROR ADDRESS 

SELECT THE DRIVE 

SEND TAPE TO "BOT" 

WAIT ON READY 

READ A BLOCK OF DATA 

KEEP OUT OF THE WAY 

AT "CLEAR LEADER"? 

BR IF YES 

COMPARE THE READ AND WRITE BUFFERS 

LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

GET INTO FILE GAP 

AT "CLEAR LEADER"? 

BR IF YES 

LOOP 

; SPACE FORWARD FILE GAP FROM "BOT" TO "EOT" 
; START AT 244 

-.THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
JSPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED). OR AFTER READ OR 



RGPBLK: 


MOV 


#STACK,SP 




MOV 


WTACSL.TACS 




MOV 


@<i^TADBL,TADB 




RESET - 






MOV 


#RGPBLK,@#$LPERI 




SELDRV 






MOVB 


i?XRWND!GO.@TACS 


100$: 


BIT 


^READY,@TACS 




BEO 


100$ 


1$: 


READ 


, RLNKX 




MOV 


#STACK.SP 




BIT 


# LEADER. @T ACS 




BNE 


RGPBLK 




BLKCMP 






RLNKX 






WLNKX 






SFBG 






BIT 


«^ LEADER, @T ACS 




BNE 


RGPBLK 




BR 


1$ 



TA11 MOTION TEST 
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CZTADD. 


P11 2 


3~MAR~78 


08:34 


3053 








3054 








3055 








3056 


013000 


012706 


001 100 


3057 


013004 


013704 


001220 


3058 


013010 


013705 


001224 


3059 


013014 


000005 




3060 


013016 


012737 


013000 001110 


3061 


013024 


104422 




3062 


013026 


1 12714 


000017 


3063 


013032 


032714 


000040 


3064 


013036 


001775 




3065 


013040 


104417 




3066 


013042 


032714 


020000 


3067 


013046 


001774 




3068 


013050 


000000 




3069 


013052 


000752 




3070 








3071 








3072 








3073 








3074 








3075 








3076 








3077 


013054 


000005 




3078 


013056 


012737 


013054 OOlltO 


3079 


013064 


005037 


001172 


3080 


013070 


104422 




3081 


013072 


104415 




3082 


013074 


032714 


020000 


3083 


013100 


001774 




3084 


013102 


000000 




3085 


013104 


000763 




3086 








3087 








3088 








3089 








3090 


013106 


005000 




3091 


013110 


000000 




3092 


013112 


022737 


000176 001140 


3093 


013120 


001001 




3094 


013122 


104405 




•3095 


013124 






3096 


013124 


157700 


166010 


3097 


013130 


001.006 




3098 


013132 


105777 


166003 


3099 


013136 


001402 




3100 


013140 


012700 


000376 


3101 


013144 


005200 




3102 


013146 


010037 


017010 


3103 


013152 


010037 


017044 


3104 


013156 


000000 




3105 


013160 


022737 


000176 001140 


3106 


013166 


001001 




3107 


013170 


104405 




3108 


013172 







SPACE FORWARD FILE GAP FROM "BOT" TO "EOT" 

; WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 

•(SIGNAL MONO CAN BE CHECKED), 
********************************************************** 

JKEEP THE STACK OUT OF THE WAY 

; SETUP THE TA11 STATUS AND 

;DATA BUFFER REGISTERS 

; RESET THE UpRLO 

; SETUP THE LOOP ON ERROR ADDRESS 

•.SELECT THE DRIVE 

;SEND TAPE TO "BOX" 

JWAIT ON ftEADY 

I SPACE INTO A FILE GAP 
;AT "CLEAR LEADER"? 
;BR IF NO 
;STOP AT "EOT" 
; LOOP Q^_ CONT. 

*********************************************************** 
BACK SPACE FILE GAP 
; START AT 250 
;THIS ROUTINE CAN BE USED TQ ADJUST OR CHECK THE "SIGNAL I30N0". 

****************^*«*****#**** **************** ************** 



SEO 0076 



MOV 


#STACK,SP 


MOV 


@#TACSL.TACS 


MOV 


##TADBL,TADB 


RESET 




MOV 


#SFFGSB.@#$LPER 


SELDRV 




MOVB 


#XRWND!GO.@TACS 


BIT 


#READY,@TACS 


BEO 


100$ 


SFFG 




BIT 


iS' LEADER, @TACS 


BEQ 


IS 


HALT 




BR 


SFFGS8 



1S5 



RESET 




; RESET THE WOgLO 


MOV 


#BSFGSB.@#$LPERR 


;LOQP ON ERROR ADDRESS 


CLR 


SESCAPE 


; DON'T ESCAPE ON ERROR 


SELDRV 




; SELECT THE DRIVE 


BSFG 




;BACK SPACE A FILE GAP 


BIT 


# LEADER, @TACS 


;AT -CLEAR LEADER"? 


BEQ 


1$ 


;BR IF NO 


HALT 




ISTOP AT BOT 


BR 


BSFGSB 


; START OVER ON CONT. 



************«******#*******«*<5'************ ****** ********** 

SETUP READ AND WRITE LINKS FOR SUBROUTINES 



SETBU 


F: CLR 


RO 






HALT 




; OPERATOR RUTS BYTE COUNT IN THE SWR 




CMP 


<^SWSEG,SWR 


; USING S/W SWITCH REG? 




BNE 


20S 


;N0- GET OUT 


20S: 


gtsWr 




;GET VALUE 
{CONTINUE 




BISB 


®SWR , RO 


; PICKUP THE BYTE COUNT 




BNE 


2$ 


;BR IF NON-ZERO 




TSTB 


®SWR+1 


; CHECK IF GREATER THAN 377 




BEO 


IS 


;BR IF NO 




MOV 


i??376,R0 


;SET FOR MAX ALLOHtlED 


1$: 


INC 


RO 


IMAKE IT 377 OR 1 


2$: 


MOV 


R0,®#RLNKX+2 


; SETUP READ LINK 




MOV 


R0,@#WLNKX-)-2 


;SETUP WRITE LINK 




HALT 




JSET PATTERN INTO THE SfefR 




CMP 


^SWREG.SWR 


; USING S/W SlsJITCH REG? 




BNE 


21$ 


;N0- GET out 


21 $5 


GTSWR 




;6ET VALUE 
; CONTINUE 



ivAoi^i'^." '%-...-.. 'oi'Ar ""' -*"°"'sE?rs^r.^.ri^?Ts^t?^.^^o. sub«™t..bs 



SEQ 0071 



SEO 0071 



3109 013172 017700 165742 

3110 013176 012701 017112 



3111 



110021 
110021 
110021 
110021 
oi.;j u.^*.* 000000 

3116 013214 022737 000176 001140 

3117 013222 001001 

3118 013224 104405 

3119 013226 

3120 013226 000207 



013202 

3112 013204 

3113 013206 

3114 013210 

3115 013212 



MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

HALT 

CMP 

BNE 

GTSWR 

RTS 



i>SWR,RO 

#WBUFX,R1 

R0,{R1)-^ 

R0,(R1)-«- 

R0,(R1)+ 

R0,{R1)+ 

iSfSt^REGtSm 
22$ 



{PICKUP THE PATTERN 

; PICKUP FIRST ADDRESS OF BUFFER 
;FILL THE BUFFER 



J SET OPERATIONAL SlillTCHES 

5 USING S/W SWITCH REG? 

jNO- GET OUT 

;GET VALUE 

•.CONTINUE 

{RETURN 
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CZTADD.P11 23-MAR-78 08:34 TYPE ROUTINE 

.SBTTL TYPE ROUTINE 



SEQ 0072 



SEQ 007S 



3121 








3122 








3123 








3124 








3125 








3126 








3127 








3128 








3129 








3130 








3131 








3132 








3133 








3134 








3135 








3136 








3137 








3138 


013230 


105737 


001157 


3139 


013234 


100002 




3140 


013236 


000000 




3141 


013240 


000407 




3142 


013242 


010046 




3143 


013244 


017600 


000002 


3144 


013250 


112046 




3145 


013252 


001005 




3146 


013254 


005726 




3147 


013256 


012600 




3148 


013260 


062716 


000002 


3149 


013264 


000002 




3150 


013266 


122716 


000011 


3151 


013272 


001430 




3152 


013274 


122716 


000200 


3153 


013300 


001006 




3154 


013302 


005726 




3155 


013304 


104401 




3156 


013306 


001201 




3157 


013310 


105037 


013444 


3158 


013314 


000755 




3159 


013316 


004737 


013400 


3160 


013322 


123726 


001156 


3161 


013326 


001350 




3162 


013330 


013746 


001154 


3163 








3164 


013334 


105366 


000001 


3165 


013340 


002770 




3166 


013342 


004737 


013400 


3167 


013346 


105337 


013444 


3168 


013352 


000770 




3169 








3170 








3171 








3172 


013354 


112716 


000040 


3173 


013360 


004737 


013400 


3174 


013364 


132737 


000007 


3175 


013372 


001372 




3176 


013374 


005726 





^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
i'THE ROUTINE s^ILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
kNOTEI: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
CN0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
I'NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



1-CALL: 

M ) USING A TRAP INSTRUCTION 

i> TYPE .MESADR 



• * 


TYPE 




;* 
J * 


MESADR 




STYPE! 


TSTB 


STPFLG 




BPL 


1$ 




HALT 






BR 


3$ 


1$: 


MOV 


RO,-(SP) 




MOV 


@2(SP),R0 


2S: 


MOVB 


(RO)+,-(SP) 




BNE 


4$ 




TST 


(SP) + 


60$: 


MOV 


(SP)+,RO 


3$: 


ADD 
RTI 


#2,(SP) 


4$: 


CMPB 


#HT,(SP) 




BEO 


8$ 




CMPB 


#CRLF,CSP) 




BNE 


5$ 




TST 


(SP) + 




TYPE 






$CRLF 






CLRB 


SCHARCNT 




BR 


2$ 


5$: 


USR 


PC.STYPEC 


6$: 


CMPB 


SFILLC, (SP) 




BNE 


2$ 




MOV 


SNULL, -(SP) 


7S: 


DECS 


1(SP) 




BLT 


6$ 




USR 


PCSTYPEC 




DECB 


SCHARCNT 




BR 


7$ 


-.HORIZONTAL TAB 


PROCESSOR 


8$: 


MOVB 


#' .(SP) 


9S: 


USR 


PC.STYPEC 




BITB 


#7, SCHARCNT 




BNE 


9$ 




TST 


(SP)* 



5 JMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;IS THERE A TERMINAL? 

;BR IF YES 

JHALT HERE IF NO TERMINAL 

; LEAVE 

;SAVE RO 

;GET ADDRESS OF ASCIZ STRING 

;PUSH CHARACTER TO BE TYPED ONTO STACK 

;BR IF IT ISN'T THE TERMINATOR 

I IF TERMINATOR POP IT OFF THE STACK 

; RESTORE RO 

;ADUUST RETURN PC 

; RETURN 

; BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 

;POP <CR><LF> EOUIV 
rTYPE A CR AND LF 

; CLEAR CHARACTER COUNT 

;GET NEXT CHARACTER 

;G0 TYPE THIS CHARACTER 

;IS IT TIME FOR FILLER CHARS.? 

;IF NO GO GET NEXT CHAR. 

;GET » OF FILLER CHARS. NEEDED 

;AND THE NULL CHAR. 

;DOES A NULL NEED TO BE TYPED? 

;BR IF NO— GO POP THE NULL OFF OF STACK 

;G0 TYPE A NULL 

;D0 NOT COUNT AS A COUNT 

5 LOOP 



; REPLACE TAB WITH SPACE 

J TYPE A SPACE 

•.BRANCH IF NOT AT 

;TAB STOP 

;POP SPACE OFF STACK 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 73 
CZTADD.PII 23-MAR-78 08:34 TYPE ROUTINE, 



SEQ 0073 



SEQ 0073 



3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 



013376 000724 

013400 105777 

013404 100375 

013406 116677 



013414 

013422 

013424 

013430 

013432 

013440 

013442 

013444 000000 

013446 000207 



000002 165536 
122766 000015 000002 
001003 

105037 013444 
000406 

122766 000012 000002 
001402 
105227 



013450 022737 
013456 001074 



000176 001140 



013460 
013464 
013466 
013472 
013476 
013502 
013504 
013512 001456 



105777 165460 

100071 

117746 165454 

042716 177600 

022726 000007 

001062 

123727 001134 



013514 
013520 
013524 
013530 
013532 
013536 
013540 
013542 
013546 

013550 
013554 



104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 

117746 
042716 



014175 
014202 
000176 



165372 
177600 



013560 021627 000025 

013564 001005 

013566 104401 014170 

013572 062706 000006 

013576 000757 





BR 


2$ 


STYPEC: 


TSTB 


@$TPS 




BPL 


STYPEC 




MOVB 


2(SP).®STPB 




CMPB 


#CR,2(SP) 




BNE 


IS 




CLRB 


SCHARCNT 




BR 


STYPEX 


1$: 


CMPB 


#LF,2(SP) 




BEQ- 


STYPEX 




INCB 


(PC)* 


SCHARCNT:. WORD 





STYPEX: 


RTS 


PC 



; ;GET NEXT CHARACTER 

; ;WAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 

;; IS CHARACTER A CARRIAGE RETURN? 

;; BRANCH IF NO 

;; YES—CLEAR CHARACTER COUNT 

;;EXIT 

};IS CHARACTER A LINE FEED? 

I {BRANCH IF YES 

;; COUNT THE CHARACTER 

; {CHARACTER COUNT STORAia 



.SBTTL TTY INPUT ROUTINE 

• . **lJ[!«t*lSlS^*** *************************************** ************** 

!enabl lsb 

•^software SWITCH REGISTER CHANGE ROUTINE. 

j*ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

;«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

;*WHEN OPERATING IN TTY FLAG MODE. 

SCKSWR: CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

CMPB 

BEQ 

TYPE 
SGTSWR! TYPE 



MOV 

TYPOC 

TYPE 

CLR 

CLR 

TSTB 

BPL 

MOVB 
BIC 



CMP 

BNE 

TYPE 

ADD 

BR 



#SWREG,SWR 

15$ 

@STKS 

15$ 

®STKB,-(SP) 

#'0177,(5?) 

#7,(SP)+ 

15$ 

$AUT0B,#1 

15$ 

.SCNTLG 
, SMSWR 
SWREG,-(SP) 

,|MNEW 

-(SP) 

-(SP) 

@$TKS 

7S 

@$TKB,-(SP) 
#*C177,CSP) 



(SP),i^25 

10$ 

.SCNTLU 

«6.SP 

19$ 



;; IS THE SOFT-SWR SELECTED? 

;; BRANCH IF NO 

;;CHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

? ;SAVE THE CHAR 

;; STRIP-OFF THE ASCII 

;;IS IT A CONTROL G? 

; ;N0. RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 

;; BRANCH IF YES 

;;ECHO THE CONTROL-G CG) 

I ; TYPE CURRENT CONTENTS 

;;SAVE SWREG FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCIICALL DIGITS) 

", ; PROMPT HOR NEW SsdR 

I {CLEAR COUNTER 

{ {THE NEW SWR 

{ {CHAR THERE? 

; {IF NOT TRY AGAIN 

{ {PICK UP CHAR 
{{MAKE IT 7-BIT ASCII 



{{IS IT A CONTROL-U? 

{ { BRANCH I F NOT 

{{YES. ECHO CONTROL-U ("U) 

{{IGNORE PREVIOUS INPUT 

{{LET'S TRY IT AGAIN 



TA11 MOTION TEST 
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SEO 0074 



23-MAR-78 08:34 



TTY INPUT ROUTINE 



SEQ 0074 



3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
. 3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 



013600 
013604 
013606 
013612 
013614 
013622 
013626 
013632 
013640 
013642 
013650 
013652 
013656 
013662 
013664 
013670 
013672 
013676 
013702 
013704 
013706 
013710 
013712 
013716 
013722 
013724 
013730 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
123727 
001003 
012777 
000002 
004737 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



013732 
013734 
013742 
013746 
013750 
013756 
013764 
013772 
013774 
014000 
014002 
014006 
014012 
014016 
014020 
014022 
014030 



000015 

000004 

000002 
000006 
001201 
001135 

000100 

013400 
000060 

000067 

000060 
000002 



000002 
177776 



01 1646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 



000001 
165274 



11$: 
14$: 



15$: 
15$: 



000004 
165176 

165172 
177600 
000004 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

BIC 

TST 

BEQ 

ASL 

ASL 

ASL 

INC 

BIS 

BR 

TYP| 

BR 

LSB 



(SP).#i5 ;;is IT A <CR>? 

16$ ;; BRANCH IF NO 

4(SP) ;;YES. IS IT THE FIRST CHAR? 

i1$ ;; BRANCH IF YES 

2(SP),@SWR ;; SAVE NEW $WR 

#6,SP ; ;GLEAR UP STACK 

$CRLF ;;ECHO <CR> AND <LF> 

$INTAG,#1 ; ;RE-ENABtE TTY KBD INTERRUPTS? 

15$ ; ; BRANCH IF NOT 

^100,@$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 

;; RETURN 

PC.STYPEC ;;ECHO CHAR 

(SP).#60 ;;CHAR < 0? 

18$ ; ; BRANCH IF YES 

(SP).#67 ;;CHAR > 7? 

18$ ;; BRANCH IF YES 

#60,(SP)-4- ;;STRIP~OFF ASCII 

2(SP) ; ;IS THIS THE FIRST CHAR 

17$ ;; BRANCH IF YES 

(SP) ; :N0, SHIFT PRESENT 

(SP) ;; CHAR Over to make 

(SP) •; room for new ONE. 

2(SP) ;;KEEP COUNT OF CHAR 

-2(SP),CSP) ;;SET IN NEW CHAR 

7$ ;;SET THE NEXT ONE 

,$OUES ;;TYPE ?<CR><LF> 

2QS ;; SIMULATE CONTROL-U 



*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE .TTY 

l^^^^' RDCHR IMNPUT A SINGLE CHARACTER FROM THE TTY 

* RETURN HERE ;; CHARACTER IS ON THE STACK 

! "^ nWITH PARITY BIT STRIPPED OFF 



000004 
000004 
000023 



155140 
177500 
000021 

000004 000140 3$: 



SRDCHR: MOV 
MOV 

1$: TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 



lSP),-(SP) 

4(SP),2(SP) 

®$TKS 

IS 

@$TKB,4CSP) 

*"C<177>,4CSP) 

4(SP),ilf23 

3$ 

©STKS 

2$ 

@$TKB,-{SP) 

#"C177,{SP) 

(SP)+,*21 

2$ 

IS 

4(SP),#140 

4$ 



; ; PUSH DOWN THE PC 

;;SAVE THE PS 

;jWAIT FOR 

; ;A CHARACTER 

; ;READ THE TTY 

;;GET RID OF UUNK IF ANY 

; ;IS IT A CONTROL-S? 

; ; BRANCH I F NO 

;;WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

;;GET CHARACTER 

;;MAKE IT 7-BIT ASCII 

J ;IS IT A CONTROL-Q? 

;;IF NOT DISCARD IT 

I J YES. RESUME 

5 ;IS IT UPPER CASE? 

J {BRANCH IF YES 



TA11 MOTION TEST CZTAD-D 
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MACY11 30A(1052) 23-MAR-78 
TTY INPUT ROUTINE 



08:36 PAGE 75 



SEQ 007S 



SEQ OOTS 



3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
"3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 



014032 026627 000004 000175 

014040 003003 

014042 042766 000040 000004 

014050 000002 



014052 
014054 
014060 
014064 
014066 
014070 
014072 
014076 
014100 
014104 
014106 
014112 
014116 
014122 
014124 
014130 
014134 
014136 
014140 
014146 
014154 
014156 
014157 
014160 
014170 
014175 
014202 
014210 
014213 
014220 



010346 
012703 
022703 
101405 
104407 
112613 
122713 
001003 
104401 
000763 
11 1337 
104401 
122723 
001356 
105063 
104401 
012603 
01 1646 
016666 
012766 
000002 

000 

000 
000010 
052536 

136 
005015 
020075 

040 
036440 



014160 
014170 



014156 
014156 
000015 

177777 
001202 



000004 
014160 



005015 
006507 
053523 
000 
047040 
000040 



014224 011646 

014226 016666 000004 

014234 010046 

014236 010146 

014240 010246 



CMP 
BGT 
BIC 
RTI 



4CSP),^17S ;;IS IT A SPECIAL CHAR? 
4$ ; ; BRANCH IF YES 

#40,4(SP) ;;MAKE IT UPPER CASE 
; ;G0 BACK TO USER 



itTHIS ROUTINE WILL INPUT 

►CALL: 

» RDLIN 

(. RETURN HERE 



A STRING FROM THE TTY 

;; INPUT A STRING FROM THE TTY 

l-.ADDRESS OF FIRST CHARACTER WILL BE OW THE STACK 

; {TERMINATOR WILL BE A BYTE OF ALL O'S 



SRDLIN! MOV 



1$: 
2$: 



oooooa 

000004 



STTYIn: 
SCNTLU: 
SCNTLG: 
020122 SMSWR: 



000 
000012 



MOV 

CMP 

BLOS 

RDCHR 

MOVB 

CMPB 

BNE 

tYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

MOV • 

RTI 

.BYTE 

.BYTE 

.BLK8 

.ASCIZ 

.ASCIZ 

.ASCIZ 



R3,-(SP) 
iSf$TTYIN.R3 
#$TTYIN+8.,R3 
4S 

(SP)+,(R3) 

#177, (R3) 

3S 

, SOUES 

IS 

(ft3),9$ 

9$ 
#15,(R3)4. 
2$ 

-1(R3) 
,$LF 

{SP)+,R3 
(SP),-CSP) 
4(SP),2CSP) 
#$TTYIN,4CSP) 





S. 

/*y/<15><12> 

/•'G/<15><12> 

<15><12>/SWR « 



I ; SAVE R3 

; ;GET ADDRESS 

I {BUFFER FULL? 

{{BR IF YES 

{{GO READ ONE CHARACTER FROM THE TTY 

{{GET CHARACtER 

{{IS IT A RUBOUT 

{ {SKIP IF NOT 

{{TYPE A '?• 

{{CLEAR THE BUFFER AND LOOP 

{{ECHO THE CHARACTER 

{{CHECK FOR RETURN 

{{LOOP IF NOT RETURN 

{{CLEAR RETURN (THE 15) 

{{TYPE A LINE FEED 

{{RESTORE P3 ^ ^^ ^^^ 

{{ADJUST THE STACK AND PUT ADDRESS OF THE 

{{ FIRST ASCII CHARACTER ON IT 

{{RETURN 

{{STORAGE FOR ASCII CHAR. TO TYPE 

{{TERMINATOR 

{{RESERVE 8 BYTES FOR TTY INPUT 

{{CONTROL "U" 

{{CONTROL "G" 



053505 SMNEW: .ASCIZ / NEW »« / 

.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

.*«*#******«*«****«*«*********** ******************************** 

*THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AN© 

*CHANGE IT TO BINARY. 

*CALL: 

* RDOCT {{READ AN OCTAL NUMBER 

RETURN HERE { ? LOW ORDER BITS AR| ON TOP OF THE STACK 

«. {{HIGH ORDER BITS AftE IN SHIOCT 



SRDOCT: MOV 

000092 MOV 

MOV 

MOV 

^OV 



(sp),-(spr 

4(SI»),2(SP) 

RO,-(SP) 

R1,-(SP) 

Ra,-(SP) 



{{PROVIDE SPACE FOR THE 
{{INPUT NUMBER 
{{PUSH RO ON STACK 
{{PUSH R1 ON STACK 
{{PUSH R2 ON STACK 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 
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3345 


014242 


104410 


3346 


014244 


012600 


3347 


014246 


005001 


3348 


014250 


005002 


3349 


014252 


112046 


3350 


014254 


001412 


3351 


014256 


006301 


3352 


014260 


006102 


3353 


014262 


006301 


3354 


014264 


006102 


3355 


014266 


006301 


3356 


014270 


006102 


3357 


014272 


042716 177770 


3358 


014276 


062601 


3359 


014300 


000764 


3360 


014302 


005726 


3361 


014304 


010166 000012 


3362 


014310 


010237 014324 


3363 


014314 


012602 


3364 


014316 


012601 


3365 


014320 


012600 


3366 


014322 


000002 


3357 


014324 


000000 



SHIOCTI 



23-MAR-78 08:36 PAGE 


76 


OCTAL 


NUMBER FROM THE TTY 




RDLIN 




:READ AN ASCIZ LINE 


MOV 


(SP)+,R0 ! 


;GET ADDRESS OF 1ST CHARACTE 


CLR 


R1 


; CLEAR DATA WORD 


CLR 


R2 




MOVB 


(RO+.-CSP) ; 


; PICKUP THIS CHARACTER 


BEO 


3$ 


;IF ZERO GET OUT 


ASL 


R1 J 


;*2 


ROL 


R2 




ASL 


R1 ; 


;*4 


ROL 


R2 




ASL 


R1 ; 


;*8 


ROL 


R2 




SIC 


#-C7,(SP) ; 


SSTRIP THE ASCII JUNK 


ADD 


(SP)+,Ri ; 


JADD IN THIS DIGIT 


BR 


2$ ; 


JLOOP 


TST 


(SP)+ ; 


;CLEAN TERMINATOR FROM STACK 


MOV 


R1,12(SP) 


jSAVE THE RESULT 


MOV 


R2, SHI OCT 




MOV 


(SP)+,R2 : 


:POP STACK INTO R2 


MOV 


(SP)+,R1 ; 


;POP STACK INTO R1 


MOV 


(SP)+,RO ; 


;POP STACK INTO RO 


RTI 




; RETURN 


.WORD 


'. 


;HIGH ORDER BITS GO HERE 



SEO 0076 
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CZTADD.P11 23-MAR-78 08:34 BINARY TO OCTAL (ASCII) AND TYPE 



SEQ 0077 



SEO 0077 



3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 



014326 
014332 
014340 
014344 
014350 
014352 
014360 
014366 
014374 
014376 
014400 
014402 
014406 
014410 
014414 
014420 
014424 
014430 
014432 
014434 
014436 
014440 
014442 
014444 
014446 
014450 
014454 
014456 
014462 
014464 
014466 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-CIGIT 
*OCTAL (ASCII) NUMBER AND TYPE IT. 

*$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL: 

* MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

* TYPOS 5;CALL FOR TYPEOUT 

* .BYTE H ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ; ;Ma1 OR 

* 5J1=TYPE LEADING ZEROS 

« ;;OsSUPPRESS LEADING ZEROS 

*$TYPON ENTER HERE TO TYPE OUT miH THE SAME PARAMETERS AS THE UST 

•*$TYPOS OR STYPOC 
*CALL: 

* MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

* TYPON ;;CALL FOR TYPEOUT 
* 

*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT DUMBER 

*CALL: 

* MOV NUM,-(SP) IJNUMBER TO BE TYPED 

* TYPOC ?;CALL FOR TYPEOUT 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 



000000 
000001 
014553 
000002 

000001 
000006 
000005 



014553 

000006 
014552 
014551 
000012 



014552 
177770 



014551 



STYPOS: MOV 
MOVB 
MOVB 
ADD 
BR 
014551 STYPOC: MOVB 
014553 MOVB 

014550 STYPONS MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 
ROL 
BR 
ROL 
ROL 
ROL 
MOV 
ROL 
DECS 
BPL 
BIC 
BNE 
TST 
BEQ 



3$: 



®(SP),-(SP) 

1(SP),$0FILL 

(SP)+,$0M0DE+1 

il'2,(SP) 

STYPON 

#1,$0FILL 

#6,$0M0DE4-1 

#5,$0CNT 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

S0M0DE+1,R4 

R4 

R4 , SOMODE 

$0FILL,R4 

12(SP),R5 

R3 

R5 

3$ 

R5 

R5 

R5 

R5,R3 

R3 

$OMODE 

7$ 

#1 77770. R3 

4$ 

R4 

5$ 



; PICKUP THE MODE 
ILOAD ZERO FILL SWITCH 
INUMBER OF DIGITS TO TYPE 
i ADJUST RETURN ADDRESS 

;SET THE ZERO FILL SWITCH 

;SET FOR SIX(6) DIGITS 

I SET THE ITERATION COUNT 

ISAVE R3 

;SAVE R4 

J SAVE R5 

;GET THE NUMBER OF DIGITS TO TYPE 

[SUBTRACT IT FOR MAX. ALLOWED 

J SAVE IT FOR USE 

;GET THE ZERO FILL SWITCH 

; PICKUP THE INPUT NUMBER 

;CLEAR THE OUTPUT WORD 

; ROTATE MSB INTO "C 

;G0 DO MSB 

;FORM THIS DIGIT 



;GET LSB OF THIS DIGIT 
[TYPE THIS DIGIT? 
;BR IF NO 
[GET RID OF JUNK 
[TEST FOR 
[SUPPRESS THIS 0? 
[BR IF YES 



TA11 MOTION TEST 
CZTADD.P11 23-MAR-7a 



CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 78 
08:34 BINARY TO OCTAL (ASCII) AND TYPE 



SEQ 0078 



SE0 007® 



3424 


014470 


005204 




4$: 


INC 


R4 

#'0,R3 
#' ,R3 


3425 


014472 


052703 


000060 




BIS 


3426 


014476 


052703 


000040 


5$: 


BIS 


3427 


014502 


110337 


014546 




MOVB 


R3,8$ 
,8S 


3428 


014506 


104401 


014546 




TYPE 


3429 


014512 


105337 


014550 


7S: 


DECS 


SOCNT 

2$ 

6$ 

R4 

2$ 

(SP)+,R5 

(SP)-i-,R4 


3430 


014516 


003347 






BGT 


3431 


014520 


002402 






BLT 


3432 


014522 


005204 






INC 


3433 
3434 
3435 


014524 
014526 
014530 


000744 
012605 
012604 




6$: 


BR 

fSrtOV 

MOV 


3435 
3437 
3438 


014532 
014534 
014542 


012603 
016666 
012616 


000002 000004 


MOV 
MOV 
MOV 


{SP)+,R3 

2(SP).4(SP) 

(SPH.CSP) 


3439 


014544 


000002 






RTI 




3440 


014546 


000 




8$: 


.BYTE 
.BYTE 






3441 


014547 


000 






3442 


014550 


000 




SOCNT : 


.BYTE 





3443 


014551 


000 




$0FILL5 


.BYTE 





3444 


014552 


000000 




SOKflODEi 


.mao 






; DON'T SUPPRESS ANYM0RE O'S 

;MAKE THIS DIGIT ASCII 

;MAKE ASCII IF NOT ALREADY 

jSAVE FOR TYPING 

;G0 TYPE THIS DIGIT 

; COUNT BY 1 

;BR IF MORE TO DO 

;BR IF DOr^E 

; INSURE LAST DIGIT ISN'T A BLANK 

;G0 DO THE LAST DIGIT 

; RESTORE R5 

; RESTORE R4 

■ RESTORE R3 

■SET THE STACK FOR RETURNING 

; RETURN 

; STORAGE FOR ASCII DIGIT 

;TERMINATOf? FOR TYPE ROUTINE 

; OCTAL DIGIT COUNTEJi 

;ZERO FILL SWITCH 

;NUS5iER OF DIGITS T0 TYPE 



TA11 MOTION TEST CZTAD-0 MACYII 30A(1052) 23-iy5AR-78 08536 
CZTADD.P11 23~MAR"78 08:34 TRAP DECODER 

.SBTTL TRAP DECODER 



SEO 0079 



SEO 007S 



3445 






3446 






3447 






3448 






3449 






3450 






3451 






3452 






3453 


014554 


010046 


3454 


014556 


016600 000002 


3455 


014562 


005740 


3456 


014564 


111000 


3457 


014566 


006300 


3458 


014570 


016000 014610 


3459 


014574 


000200 


3460 






3461 






3462 






3463 






3464 


014576 


011646 


3465 


014600 


016666 000004 


3466 


014606 


000002 


3467 






3468 






3469 






3470 






3471 






3472 






3473 






3474 






3475 


014510 


014575 


3476 


014612 


013230 


3477 


014514 


014352 


3478 


014616 


014326 


3479 


014620 


014366 


3480 






3481 


014622 


013520 


3482 






3483 


014624 


013450 


3484 


014626 


013732 


3485 


014630 


014052 


3486 


014632 


014224 


3487 


014634 


010504 


3480 


014636 


010554 


3489 


014640 


010774 


3490 


014642 


011304 


3491 


014644 


01 1366 


3492 


014646 


011436 


3493 


014550 


01 1520 


3494 


014652 


011600 


3495 


014654 


010246 


3496 


014656 


010362 


3497 


014660 


010106 



*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX THftOUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 

STRAP: 



MOV 


RO,-(SP) 


;;SAVE RO 


MOV 


2(SP),R0 


; ;GET TRAP ADDRESS 


TST 


-(RO) 


;; BACKUP BY 2 


MOVB 


(RO),RO 


;;GET RIGHT BYTE OF TRA 


ASL 


RO 


;; POSITION FOR INDEXING 


MOV 


STRPADCRO),RO 


;; INDEX TO TABLE 


RTS 


RO 


; ;G0 TO ROUTINE 



i;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2: UOM 
MOV 
RTI 



(SP),-{SP) 
4(SP),2(SP) 



J I MOVE THE PC DOWN 
; ;5^0VE THE PSW DOm 
;; RESTORE THE PSW 



.SBTTL TRAP TABLE 

J*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



ROUTINE 

.WORD 

$TYPE 

$TYPOC 

STYPOS 

STYPON 



STRAP2 

; jCALLsTYPE 

;;CALL=TYPOC 

nCALL=TYPOS 

; jCALLsTYPON 



TRAP+1( 104401) TTY TYPEOUT ROUTINE ^ 

TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP+4( 104404) TYPE OCTAL NUMBER CAS PER LAST CALL) 



SGTSWR ;;CALL«GTSWR TRAP+5( 104405) GET SOFT-SWR SETTING 

iGALL=CKSWR TRAP+6C 104406) TE^T FOJ? CHANGE IN SOFT-SWR 
iCALLsRDCHR TRAP+7( 104407 ) TTY TYPEIN CHARACTER ROUTINE 
ICALL^RDLIN TRAP+10( 104410) TTY TYPEIN STRING ROUTINE 
;CALL=RDOCT TRAP+1 1 ( 10441 1 ) READ AN OCTAL NUMBER FRWU TTY 
iCALL=WFG TRAP+12( 104412) ROUTINE TO WRITE A FILE GAP 
;CALL=WUIT£ THAP+13( 104413) RQUTINfe TO W«ITE A BLOCK OF DATA 
;CALL=f?iAD TRAPt14( 104414) ROUTINE TD READ A BLOCK OF DATA 
iCALLsBSFG TRAPtl5{ 1Q4415) ROUTINE TO BACK SPACE A FILE GAP 
!CALL=BSBa TRAP+16( 104416) 80UTIME TO lACK S?ACE A BLOCK GAP 
!GALL«SFFG TRAP+17( 10441 7) ftOUTlNE TO SPACE FWD A FILE GAP 
;CALL=SFSG TRAP+20( 104420) ROUTINE TO SPACE FWD A BLOCK GAP 
}CALL=REWIND TRAP+ai ( 1044-21 ) ROUTINE TO REWIND THE TAPE 

j:CALL»SELDRV TRAfS+22(1044S2) ROUTINE TO SELECT THE NEXT DRIVE 
SjCALL-BLKCMP TRAP-l-23 (104423) COMPARE READ AND WRITE BUFFERS 
T.SETLOOP ;|CALL«SETLOOP TRAP+24( 1044S4) SETUP TO LOOP AS PER THE TTY 



$CKSWR 

$RDCHR 

SRDLIN 

$RDOCT 

T.WFG 

T.WRIT 

T.READ 

T.BSFG 

T . BSBG 

T.SFFG 

T.SFBG 

T . RWND 
.SELDRV 
.BLKCMP 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 80 
CZTADD.P11 23-MAR-78 08:34 POWER DOWN AND UP ROUTINES 



SEQ 0080 



3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 



.SBTTL POWER DOWN AND UP ROUTINES 



014662 
014670 
014676 
014700 
014702 
014704 
014706 
014710 
014712 
014716 
014722 
014730 
014732 



014734 
014742 
014746 
014752 
014756 
014760 
014764 
014766 
014770 
014772 
014774 
014776 
015000 
015006 
015014 
015016 
015020 
015022 
015024 
015026 
015030 
015032 
015034 
015042 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
015034 
012716 
002300 
000002 
000000 
000776 
000000 
005015 
000122 



015026 
000340 



1 64222 
015032 
014734 



***************************************** 



000024 
000026 



•.POWER DOWN ROUTINE 

SPWRDN: MOV #$ILLUP.@#PWRVEC 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



#340,@#PWRVEC+2 

RO,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

fsSWR,-(SP) 

SP,$SAVR6 

#$PWRUP,®#PWRVEC 

.-2 



;;SET FOR FAST UP 

;PRI0:7 

;PUSH RO ON STACK 

;PUSH R1 ON STACK 

JPUSH R2 ON STACK 

;PUSH R3 ON STACK 

;PUSH R4 ON STACK 

-.PUSH R5 ON STACK 

I PUSH @SWR ON STACK 

;SAVE SP 

;;SET UP VECTOR 

; ;HANG UP 



; POWER UP ROUTINE 



000024 SPWRUP: MOV 

MOV 

CLR 

is: INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

000024 MOV 

000026 SSOV 

TYPE 

spwrmg: .word 

MOV 

spwrad: .word 

RTI 
SILLUP: HALT 

$SAVR6: 
047520 042527 SPOWER: .ASCII 

.EVEN 



015026 
015032 
015032 
015032 

164154 



014662 
000340 



(^SILLUP. f^PWRVEC 

$SAVR6,SP 

$SAVR6 

$SAVR6 

1$ ■ 

(SP)+,@SWR 

(SP)4-,R5 

CSP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

(SP)+,RO 

AfSPWRDN.^^PWRVEC 

#340,®#PWRVEC4-2 

SPOWER 

(PC)+,(SP> 

PWRST 



.-2 

<1 5X1 2>" POWER" 



;SET FOR FAST DOWN 
GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO ®SWR 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
;SET UP THE POWER DOWN VECTOR 
PRI0:7 
REPORT THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 
RESTART AT PWRST 
RESTART ADDRESS 

TriE POWER UP SEQUENCE WAS STARTED 

BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



TA11 MOTION TEST 



CZTADD P11 



23-MAR-78 08:34 



CZTAD-D MACY11 30AC1052) 23-MAR-78 08:36 PAGE 81 



015044 
015052 

015056 
015064 
015072 



3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 

3554 015074 

3555 015102 

3556 015110 
3557 

3558 015112 

3559 015120 
3560 

35S1 015126 
3562 015134 
3563 



001204 001115 
001164 000000 



DATA TABLE POINTERS FOR ERRORS 

;DATA POINTERS 
001162 DTi: .WORD SAVPC,$ERRPC,$REG0,$REG1 ,0 



SEQ OOBt 



SEQ 0081 



001204 
001124 
000000 

001204 
001210 
000000 



001204 001116 
001164 001166 



001116 
001126 



001116 
001212 



001162 
001206 



0T2: 



.WORD 
.WORD 



SAVPC , SERRPC , $REGO , $GDDAT . SBDDAT . BYTNUM , 



001162 DT3! 
001214 



001162 
000000 



001204 
000000 



001116 001162 DT5: 



.WORD SAVPC, SERRPC, $REG0,RCRC0,RCRC1 ,RCRC2,0 

. WORD SAVPC , SERRPC , $REGO , SREGI , STMPO , 
•WORD SAVPC, SERRPC, SREGO.O 



TA11 MOTION TEST C2TAD-D t^lACYll 30*^^°52)23-MAR.7a 08:36 PAGE 82 

CZTADD.P11 23-MAR-78 08:34 ASCII MESSAGES 



SEQ 0082 



SEQ 00S3 



3564 












3565 
3566 










;MESSAGES 


3567 
3568 


015136 


042200 


044522 


042526 


MSGDRV: ./ 


3569 


015144 


051450 


037451 


000040 




3570 


015152 


005015 


040524 


051503 


MSGASK: .i 


3571 


015160 


000077 








3572 


015162 


042526 


052103 


051117 


MSGVEC: .i 


3573 


015170 


000077 








3574 


015172 


051120 


047511 


044522 


MSGPRI: .1 


3575 


015200 


054524 


000077 






3576 


015204 


052040 


041501 


036523 


MTACS: .i 


3577 


015212 


000 








3578 


015213 


040 


040524 


041104 


MTADS: .i 


3579 


015220 


000075 








3580 


015222 


053040 


041505 


047524 


MTAVEC: ,i 


3581 


015230 


036522 


000 






3582 


015233 


040 


051120 


047511 


MTAPRI: ., 


3583 


015240 


044522 


054524 


000075 




3584 


015246 


005015 


045517 


000077 


MSGOK: ., 


3585 


015254 


042531 


100123 


000 


MYES: 


3586 


015261 


015 


052012 


051505 


MTSTDRV: 


3587 


015266 


044524 


043516 


042040 




3588 


015274 


044522 


042526 


000040 




3589 


015302 


040440 


042116 


042040 


f^^ANDRV: . 


3590 


015310 


044522 


042526 


000040 




3591 


015316 


005015 


042524 


052123 


MTESTS . 


3592 


015324 


050040 


037503 


000 




3593 


015331 


015 


046012 


047517 


ML00P5 . 


3594 


015336 


020120 


041520 


000077 




3595 


015344 


042522 


044527 


042116 


mxrwnd: . 


3596 


015352 


000 








3597 


015353 


127 


044522 


042524 


mxwrit; . 


3598 


015360 


000 








3599 


015361 


122 


040505 


000104 


MXREAD: . 


3600 


015366 


050123 


041501 


026505 


MXSFFGI . 


3601 


015374 


053506 


026504 


044506 




3602 


015402 


042514 


043455 


050101 




3603 


015410 


000 








3604 


015411 


123 


040520 


042503 


MXSFBG: . 


3605 


015416 


043055 


042127 


041055 




3606 


015424 


045514 


043455 


050101 




3607 


015432 


000 








3608 


015433 


102 


041501 


026513 


iyiXBSFGS . 


3609 


015440 


050123 


041501 


026505 




3610 


015446 


044506 


042514 


043455 




3611 


015454 


050101 


000 






3612 


015457 


102 


041501 


026513 


lyiXBSBG: . 


3613 


015464 


050123 


041501 


026505 




3614 


015472 


046102 


026513 


040507 




3615 


015500 


000120 








3616 


015502 


051127 


052111 


026505 


SSXWFG: . 


3617 


015510 


044506 


042514 


043455 




3618 


015516 


050101 


000 






3619 


015521 


102 


0431 25 


042506 


i^BUFCK: . 



***)}.«*«******«*" 



******* ************************ ******** 



ASCIZ <CRLF>"DRIVE(S)? " 

ASCIZ <15><12>/TA€S?/ 

ASCIZ /VECTOR?/ 

ASCIZ /PRIORITY?/ 

ASCIZ / TACSs/ 

ASCIZ / TADB»/ 

ASCIZ / VECTOR^/ 

ASCIZ / PRIORITY^/ 

ASCIZ <15><12>/0K?/ 

ASCIZ /YES/<CRLF> 

•ASCIZ <1B><12>/TESTING DRIVE / 

ASCIZ / AND DRIVE / 

ASCIZ <1i><12>/TEST PC?/ 

ASCIZ <15><12>/L00P PC?/ 

, ASCIZ /REWIND/ 

.ASCIZ /WRITE/ 

ASCIZ /READ/ 

ASCIZ /SPACE-FW-FILE-aAP/ 

ASCIZ /SPACE-FWD-BLK-GAP/ 

.ASCI2: /B/&CK-SPACE-FILE-6AP/ 

ASCIZ /BACK-SPACE-BLK-GAP/ 

.ASCIZ /WRXTE-FILE-GAP/ 

.ASCII /BUFFER COMPARE/ 



TA11 MOTION TEST CZTAD-D MACY11 30^^052) 23-MAR-70 08:36 PAGE 83 
CZTADD.P11 23-MAR-78 08:34 ASCII MESSAGES 



.ASCIZ /IMPROPER FLAG SETTING/ 

.ASCIZ /IMPROPER FLAG OCCURRED/ 

.ASCIZ /MISSED A FLAG/ 

.ASCIZ /INTERRUPT FAILED/ 

.ASCIZ /PREMATURE READY OCCURRED/ 

.ASCIZ /DIDN'T STOP IM A FILE GAP/ 

.ASCIZ /DIDN'T STOP ON CLEAR LEADER/ 

.ASCII /BAD DATA READ/ 

.ASCIZ /ILLEGAL BUFFER SIZE/ 

.ASCII /CRC ERROR/ 

.ASCIZ /SHORT RECORD/ 



SEQ 0083 



SEO 0083 



3620 


015526 


020122 


047503 


050115 




3621 


015534 


051101 


000105 






3622 


015540 


04651 1 


051120 


050117 


Eiii: 


3623 


015546 


051105 


043040 


040514 




3624 


015554 


020107 


042523 


052124 




3625 


015562 


047111 


000107 






3626 


015566 


046511 


051120 


050117 


Eiaa: 


3627 


015574 


051105 


043040 


040514 




3628 


015602 


020107 


041517 


052503 




3629 


015610 


051122 


042105 


000 




3630 


015615 


115 


051511 


042523 


E»I3: 


3631 


015622 


020104 


020101 


046106 




3632 


015630 


043501 


000 






3533 


015633 


111 


052116 


051105 


EMAt 


3634 


015640 


052522 


052120 


043040 




3635 


015646 


044501 


042514 


000104 




3636 


015654 


051120 


046505 


052101 


Ems I 


3637 


015662 


051125 


020105 


042522 




3638 


015670 


042101 


020131 


041517 




3639 


015675 


052503 


051122 


042105 




3640 


015704 


000 








3641 


015705 


104 


042111 


023516 


met 


3642 


015712 


020124 


052123 


050117 




3643 


015720 


044440 


020116 


020101 




3644 


015726 


044506 


042514 


043440 




3645 


015734 


050101 


000 






3646 


015737 


104 


042111 


023516 


mii 


3647 


015744 


020124 


052123 


0501 17 




3648 


015752 


047440 


020116 


046103 




3649 


015760 


040505 


020122 


042514 




3650 


015766 


042101 


051105 


000 




3651 


015773 


102 


042101 


042040 


EiSlO: 


3652 


016000 


052101 


020101 


042522 




3653 


016006 


042101 


000 






3654 


016011 


111 


046114 


043505 


mw. 


3655 


016016 


046101 


041040 


043125 




3656 


016024 


042506 


020122 


044523 




3657 


015032 


042532 


000 






3658 


016035 


103 


041522 


042440 


EMI 2! 


3659 


016042 


051122 


051117 


000 




3660 


016047 


123 


047510 


052122 


EMI 3: 


3661 


016054 


051040 


041505 


051117 




3662 


016062 


000104 








3663 


016064 


040502 


020104 


047111 


EMI 4: 


3664 


015072 


042524 


051122 


050125 




3665 


016100 


000124 








3666 


016102 


005015 






DHi: 


3667 


016104 


042524 


052123 


020040 




3668 


016112 


020040 


051105 


047522 




3669 


016120 


006522 


012 






3670 


016123 


120 


020103 


020040 




3671 


016130 


020040 


050040 


020103 




3672 


016136 


020040 


020040 


052040 




3673 


016144 


041501 


020123 


020040 




3674 


016152 


052040 


042101 


006502 




3675 


016160 


000012 









.ASCII /BAD INTERRUPT/ 

.ASCII <1S><12> 

.ASCII /TEST ERROR/<lS><ia> 



.ASCII /PC 



TACS TADB/<t5><ta> 



TA11 MOTION TEST C2TAD-D MACYtl 30A(t05a) 23-MAR-78 08:36 PAGE 04 
CZTADD.P11 23-MAR-78 08:34 ASCII MESSAGES 

.ASCII <t5><12> 
.ASCII /TEST ERROR 



.ASCII /PC 



SEQ 0084 



SEO 0084 



3676 


016162 


005015 






3677 


016164 


042524 


052123 


020040 


3678 


016172 


020040 


051105 


047522 


3679 


016200 


020122 


020040 


020040 


3680 


016206 


020040 


020040 


020040 


3681 


016214 


054105 


052120 


042047 


3682 


016222 


020040 


041522 


023526 


3683 


016230 


020104 


020040 


054502 


3684 


016236 


042524 


005015 




3685 


016242 


041520 


020040 


020040 


3686 


016250 


020040 


041520 


020040 


3687 


016256 


020040 


020040 


040524 


3688 


016264 


051503 


020040 


020040 


3689 


016272 


040504 


040524 


020040 


3690 


016300 


020040 


040504 


040524 


3691 


016306 


020040 


020040 


052516 


3692 


016314 


041115 


051105 


005015 


3693 


016322 


000 






3594 


016323 


015 


012 




3695 


016325 


124 


051505 


020124 


3696 


016332 


020040 


042440 


051122 


3697 


016340 


051117 


020040 


020040 


3698 


016346 


020040 


020040 


020040 


3699 


016354 


053440 


044522 


042524 


3700 


016362 


020040 


051040 


040505 


3701 


016370 


020104 


0200.40 


052040 


3702 


016376 


033125 


006460 


012 


3703 


016403 


120 


020103 


02004Q 


3704 


016410 


020040 


050040 


020103 


3705 


016416 


020040 


020040 


052040 


3706 


016424 


041501 


020123 


020040 


3707 


016432 


041440 


041522 


020040 


3708 


016440 


020040 


041440 


041522 


3709 


016446 


020040 


020040 


041440 


3710 


016454 


041522 


005015 


000 


3711 


016461 


015 


012 




3712 


016463 


124 


051505 


020124 


3713 


016470 


020040 


042440 


051122 


3714 


016476 


051117 


020040 


020040 


3715 


016504 


020040 


020040 


020040 


3716 


016512 


020040 


020040 


020040 


3717 


016520 


020040 


041040 


052131 


3718 


016526 


051505 


005015 




3719 


016532 


041520 


020040 


020040 


3720 


016540 


020040 


041520 


020040 


3721 


016546 


020040 


020040 


040524 


3722 


016554 


051503 


020040 


020040 


3723 


016562 


040524 


041104 


020040 


3724 


016570 


020040 


042514 


052106 


3725 


016576 


005015 


000 




3726 


016601 


015 


012 




3727 


016603 


124 


051505 


020124 


3728 


016610 


020040 


042440 


051122 


3729 


016616 


051117 


005015 




3730 


016622 


041520 


020040 


020040 


3731 


016630 


020040 


041520 


020040 



EXPT'D RCV'D BYTE/<1i><12> 



NUfSJBER/<1SXt2> 



.ASCII <1S><12> 
.ASCII /TEST ERROR 



WRITE READ 



TUS0/<1S><t2> 



.ASCI 2 /PC PC TACS CRC CRC CRC/<15><12> 



.ASCII <15><12> 
.ASCII /TEST ERROR 



BYTES/<15><12> 



.ASCIZ /PC PC TACS TADB LEFT/<15><12> 



.ASCII <15><ia> 

.ASCII /TEST ERR0R/<15><ia> 



.ASCII /PC PC TACS/<15><12> 



TA11 MOTION TEST CZTAD-D MACY11 30A(1052) 23-MAR-78 08!36 PAGE 85 
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SEO 0085 



SE@ §38§ 



3732 


016636 


020040 


020040 


040524 


3733 


016644 


051503 


005015 


000 


3734 




016652 






3735 


016652 


001116 


001220 


000000 


3736 










3737 


016660 


001116 


000000 




3738 










3739 


016664 


040524 


030461 


043040 


3740 


016672 


044501 


042514 


020104 


3741 


016700 


047524 


051040 


051505 


3742 


016706 


047520 


042116 


000 


3743 


016713 


116 


020117 


051104 


3744 


016720 


053111 


020105 


053101 


3745 


016726 


044501 


040514 


046102 


3746 


016734 


000105 






3747 


016736 


041520 


020040 


020040 


3748 


016744 


020040 


040524 


051503 


3749 


016752 


000 






3750 


016753 


120 


000103 




3751 











.EVEN 
.WORD 



$ERRPC,TACSL,0 



0T202: .WORD $ERHPC,0 

EPa20i: .ASCIZ "TAII FAILED TO RESPOND" 



.ASCIZ "NO DRIVE AVAILABLE* 



DH201: .ASCIZ /PC 



TACS/ 



.ASCIZ 
.EVEN 



/PC/ 



CZTAD-D MACY,, 3aA„052,^^a3-«*R-78^^08 = 36^^P,*CE_^6^^^^ 



;BUFFER LINKS > „ « 

•THESE LINKS POINT TO THE STARTING ADPRESS OF THE BUFFERS 
;AND ALSO INDICATE HOW MANY BYTES TO READ Of? WRITE 



SEQ 0086 



SEQ OOSS 



CZTADD.P11 2. 


3-MAR-7e 


08:34 


3752 








3753 








3754 








3755 








3756 








3757 


016756 


017120 


000200 


3758 


016762 


017322 


000200 


3759 


016766 


017524 


ooooto 


3760 


016772 


017726 


000040 


3761 


016776 


020130 


000020 


3762 


017002 


020332 


000100 


3763 


017006 


017120 


000000 


3764 


017012 


017046 


000200 


3765 


017016 


017054 


000200 


3766 


017022 


017062 


000010 


3767 


017026 


017070 


000040 


3768 


017032 


017076 


000020 


3769 


017036 


017104 


000100 


3770 


017042 


017112 


000000 


377t 








3772 








3773 








3774 


017046 


000002 




3775 


017046 


314 




3776 


017047 


063 




3777 


017050 


314 




3778 


017051 


063 




3779 


017052 


000000 




3780 








3781 


017054 


000002 




3782 


017054 


377 




3783 


017055 


000 




3784 


017056 


377 




3785 


017057 


000 




3786 


017060 


000000 




3787 








3788 


017062 


000002 




3789 


017062 


231 




3790 


017063 


146 




3791 


017064 


231 




3792 


017065 


146 




3793 


017066 


000000 




3794 








3795 


017070 


000002 




3796 


017070 


360 




3797 


017071 


017 




3798 


017072 


360 




3799 


017073 


017 




3800 


017074 


000000 




3801 








3802 


017076 


000002 




3803 


017076 


252 




3804 


017077 


125 




3805 


017100 


252 




3806 


017101 


125 




3807 


017102 


000000 





RLNKi: 


RBUF1 


128 


RLNK3: 


RBUF2 


128 


RLNK3: 


RBUF3 


i. 


RLNK4: 


RBUF4 


32. 


RLNK5: 


RBUF5 


1@. 


RLNK6: 


RBUF6 


64. 


RLNKX: 


RBUF1 





WLNKi: 


WBUF1 


128 


WLNK2: 


WBUF2 


128 


WLNK3: 


WBUF3 


8. 


WLNK4: 


WBUF4 


32. 


WLNK5: 


WBUF5 


,1S. 


S«^LNK§5 


WBUF6 


.64. 


WLNKX: 


fe^BUFX 


.9 



; BUFFERS 





.BYTE 


"B11001100 




.BYTE 


"B001 10011 




.BYTE 


"B11001100 




.BYTg 


"BO011OO11 


WCRC1 s 


.WORO 





5JJBUF2: 








.BYTE 


-B11111111 




.BYTE 


-ftOfoooooo 




.BYTE 


-B11111111 




.BYTE 


"BOOOOOOOO 


WCRC2: 


.WORD 





WBUF3: 








.BYTE 


"810011001 




.BYTE 


-BfllOOIIO 




.BYTE 


"BlOOIIOOl 




.BYTE 


-ioiiooiio 


WCRC3: 


.WORD 





WBUF4: 








.BYTE 


-Bimoooo 




.BYTE 


-800001111 




.BYTE 


-Bill 10000 




.BYTE 


-B00001111 


WCRC4: 


.WORD 





WBUF5: 








.BYTE 


-B10101010 




.BYTE 


-B01010101 




.BYTE 


-810101010 




.BYTE 


-801010101 


WCRC5: 


.WORD 






JQRC ST0R|i.SE F®i WBUF1 



;CRC STOSAGE F§|l WSUFS 



;CRC STORAGI F@S WBUF3 



;CBC STORAGE FOR WBUF4 



;mc STORAGE FOR WBUFS 



TA11 MOTION TEST C2TAD-0 MACY11 30A(1052) 23-MAR~76 08:36 PAGE 87 
C2TADD.P11 23-MAR-78 08:34 READ AND WRITE BUFFERS ANP LtmS 



SEQ 0087 



SEQ 0087 



3809 


017104 


000001 


3810 


017104 


377 


3811 


017105 


377 


3812 


017106 


000 


3813 


017107 


000 


3814 


017110 


000000 


3815 






3816 


017112 


000004 


3817 


017112 


000 


3818 


017113 


000 


3819 


017114 


000 


3820 


017115 


000 


3821 


017116 


000000 


3822 






3823 






3824 


017120 


000202 


3825 


017322 


000202 


3826 


017524 


000202 


3827 


017726 


000202 


3828 


020130 


000202 


3829 


020332 


000202 


3830 






3831 




020534 


3832 






3833 




000001 



.BYTE -811111111 

.BYTE -811111111 

.BYTE -800000000 
.BYTE 

.WORD 



;CRC STORAGE FOR WBUFS 





.BYTE 







.BYTE 







.BYTE 







.BYTE 





mncxi 


.WORD 





RBUFi: 


.BLKB 


130 


RBUF2: 


.BLKB 


130 


RBUF3I 


.BLKB 


130 


RBUF4: 


.BLKB 


130 


RBUF5: 


.BLKB 


130 


RBUF6: 


.BLKS 


13© 


LASTAODRESS»» 


. 




.END 





TA11 MOTION TEST C2TAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 89 
CZTADD.P11 23-MAR--7S 08:34 CROSS REFERENCE TABLE — USER SYMBOLS 



SEO 0088 



ASKADR 


007532 


ASKDRV 


007422 


ASKKEY 


001246 


A20CT 


010022 


BAD INT 


012356 


BEG I NX 


002036 


BEGIN1 


001450 


BEGIN2 


001502 


BEGINS 


001510 


BEGIN4 


001516 


BGNCMN 


001522 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


B1T03 = 


000010 


B1T04 = 


000020 


B1T05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BITOB = 


000400 


BIT09 s 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BITS = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BITS = 


000400 


BIT9 = 


001000 


BLKCMPs 


104423 


BPTVECs 


000014 


BSBG « 


104416 



BSFGSB 


013054 


BYTNUM 


001206 


CHKADR 


002060 


CHKDRV 


002140 


CKSWR X 


104406 


CR s 


000015 


CRCERRs 


040000 



1109 


2329# 
























1106 


2297# 


2320 






















892*' 


1196* 


1268 


2218 


2717 


















2A0AM 


2^437 


2448 






















1200 


1260 


2869 


2889 


28954^ 


















817 


HOSTS' 


1139 


1141 


1189 


1191 
















814 


1022# 
























815 


1029# 
























816 


1028 


1Q31# 






















1033# 


























1025 


1027 


1030 


1032 


1034# 


















751i!^ 


























741# 


751 


794 


2116 


2118 


2828 
















740# 


750 


793 


2118 


2837 


















739# 


749 


792 






















738# 


748 


791 






















737# 


747 


790 






















736# 


746 


789 






















735^ 


745 


788 






















734# 


744 


787 


2116 


2118 


















733# 


743 


786 






















7324' 


742 


785 


2167 


2241 


















750# 


























731# 


784 


2225 






















730# 


783 


2174 






















729# 


782 
























728# 


781 


2232 






















727# 


780 


2149 


2837 




















726# 


779 


1238 






















749# 


























748# 


























747# 


























746* 


























745# 


























744^ 


























743# 


























742# 


























1295 


1308 


1321 


1334 


1339 


1352 


1357 


1372 


1385 


1391 


140b 


1421 


1436 


1452 


1467 


1482 


1486 


1493 


1500 


1507 


1513 


1517 


1530 


1536 


1543 


1550 


1558 


1562 


1576 


1590 


1603 


1610 


1623 


1530 


1646 


1663 


1C82 


1702 


1721 


1741 


1760 


1776 


1793 


1798 


1818 


1837 


1855 


1873 


1898 


1921 


1926 


1948 


1954 


1959 


1964 


1969 


1997 


2002 


2033 


2039 


2046 


2053 


2981 


3039 


3496# 


758fS' 


























1306 


1337 


1383 


1389 


1418 


1419 


1448 


1449 


1479 


1480 


1489 


1491 


1498 


1498 


1503 


1505 


1510 


1511 


1528 


1534 


1539 


1541 


1546 


1548 


1553 


1555 


1556 


1588 


1608 


1661 


1680 


1738 


1739 


1757 


1774 


1994 


3491 # 






1319 


1355 


1370 


1464 


1574 


1628 


1718 


1719 


1758 


1773 


1791 


1853 


1870 


1893 


1894 


1895 


1924 


1946 


1951 


1952 


1957 


1992 


1993 


2031 


2036 


2037 


2042 


2043 


2044 


2049 


2050 


2051 


3081 


34904^ 












824 


3077* 


3078 


3085 




















877# 


2500* 


2507* 


3550 




















1105 


1108 


1127# 






















1165# 


























2139 


2206 


2240 


3483# 




















6661? 


3181 


3191 






















780# 
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SEQ 0089 



SEO 008® 



ORG. WD 

CRLF = 

CURDRV 

DDISP ^ 

DH1 

DH2 

DH201 

DH202 

DH3 

DH4 

DH5 

DISPLA 

DISPRE 

DO . CMD 

DO.CRC 

DRIVE 

DRVKEY 

DRVPNT 

DSWR = 

DTI 

DT2 

DT201 

DT202 

DT3 

DT4 

DT5 

EMTVEC= 

EMI 

EM10 

EMI 1 

EMI 2 

EM13 

EM14 

EM2 

EM201 

EM202 

EM3 

EM4 

EMS 

EM6 

EM? 

ERROR : 

ERRVEC= 

EXAM 

EXIT 

FATAL 

FGAP 

FLAGS 

FUNCTI^ 

FUNCO ■■ 

FUNC1 

FUNC2 '■ 

GNS 

GO 



012222 
000200 
001250 
177570 
016102 
016162 
016736 
016753 
016323 
016461 
016601 
001142 
000174 
012224 
012102 
001236 
001240 

001244 
177570 
015044 
015056 
016652 
016660 
015074 
015112 
015126 
000030 
015540 
015773 
016011 
016035 
016047 
016064 
015566 
016664 
016713 
015615 
015633 
015654 
015705 
015737 
: 100000 
■■ 000004 
006464 
007522 
002702 
: 004000 
012014 
: 000016 
: 000002 
: 000004 
s 000010 



2539* 
667# 
893i!' 
673* 
918 
967 
1003 
1008 
981 
988 
974 
855# 
811# 
2521 
2562 
889^ 
890(5? 
2481 
891 <Sf 
o72# 
920 
969 
1004 
1009 
983 
990 
976 
761 # 
917 
966 
973 
980 
987 
994 
924 
1002 
1007 
931 
938 
945 
952 
959 
779# 
754# 
1166 
2316 
1236 

783# 
2527 
795# 
793« 
792# 
791# 
810 
3488 
794il' 



2567 
1091 
1212* 

855 

925 
3676# 
3747# 
3750# 
36944^ 
3711# 

995 
1062* 
1070 
2544 
2612 
1209* 

891 

1179* 

354 

927 
3550# 
3735f^ 
3737# 
3554# 
3558# 

997 
1045* 
3622# 
365 1# 
3654# 
3658*!? 
3660# 
3663# 
3626# 
3739# 
3743# 
3630# 
3633# 
3636# 
364 1# 
3646# 

1059 

1170 

2321!^ 

1255 

2638 

2552 

2865 

795 

795 

795 

1090 

3489 

1249 



2592* 2625 2825 2846* 

3152 3191 3568 3585 

1214 1221* 1224* 1226 
1062 

932 939 946 953 



3726# 
1070* 

2568 
2818^ 
2469 
1023* 

1199* 

1061 

934 



3561 # 
1046* 



1060* 
1175 



1279 


2470* 


960 


3666*' 



2188« 
2593 



2482« 
1165 



1208 
941 



2224* 
2626 



2650 



1199 



1178 
1227* 
948 955 



2707 2735 2862# 

1261 2298* 2303 2317 2321 



1071* 
2103# 



1127* 1133* 



2155* 2157* 2160* 



1274# 

2661 2697 

2574 2602 

2880 



1277 3476 3477 3478 
3490 3491 3492 3493 
2522 2545 2594 2651 



3479 
3494 
2672 



3481 
3495 
2687 



2713 2725 2741 2792# 



3483 3484 3485 3486 3487 
3496 3497 * ^^^- 

2708 2736 2865 2875 2924 



TA11 MOTION TEST CZTAO-0 MACY1 1 30A(1052) 23-MAR-78 08=36 ^AGE 91 

JztIdD Ptt 23-MAR-73 08:34 CROSS REFERENCE TABLE - USER SYMBOLS 



SS@ 609© 



SE^ 66®® 



^TSWR ^ 

HERE 
HICNT 
HT 

ILBS ^ 
INT.EN= 

IOTVEC= 
ITEMS2 
LASTAD= 
LEADER'S 

LF 

LOCNT 

LOOP 

lOOPKE 

LVFLAG 

MANDRV 

fciANUAl 

KiAXCNT 

MBUFCK 

MFUNC 

MLOOP 

MSGASK 

MSGDRV 

MSGID 

ftlSGOK 

..ISGPRI 

iVtSGVEC 

MTACS 

MTADB 

?4TAPRI 

MTAVEC 

MtEST 

MTSTDR 

IVIXBSBG 

S/IXBSFG 

iUSXREAD 

MXRWND 

MXSFB6 

iVIXSFFG 

MXWFG 

JV1XWRIT 

MYES 

NEXT 

HOTA 

NOTB 

lOTLGL 

OFFLIN:= 

OK 

PIRO = 

PI ROVE = 

PRO 3 

PR1 

PR2 a 



104405 
002036 
012010 
000011 
000020 
000100 

000020 
001430 
020534 
020000 

000012 
012006 
007446 
006614 
012100 
015302 
002260 
012013 
015521 
007304 
015331 
015152 
015136 
002024 
015246 
015172 
015162 
015204 
015213 
015233 
015222 
015316 
015261 
015457 
015433 
015361 
015344 
015411 
015366 
015502 
015353 
015254 
007502 
007460 
007472 
007514 
001000 
002272 
177772 
000240 
000000 
000040 
000100 



2952 


■29T4 


3006 


3032 


3062 


1085 


30 @ 4 


3107 


3118 


3481 # 


1076 


1078 


1089 


1091^ 




1242 


2761'* 


2769* 


2778# 




664# 


315Q 


3191 






790i!* 


2211 


256S 


2627 


2865 


7B8# 


1249 


252S 


2545 


2569 


2868 


2871 








759*5? 


1043* 


1044* 






1000# 










3B31t¥ 










781iS' 


212^ 


2638 


2731 


2746 


3082 










665# 


3185 


319! 






2760* 


2767» 


2777<? 






2304# 


■ 2318 








1206* 


2147# 


2455* 


2457* 




2793 


2736 


281^' 


2812^ 




1225 


3589# 








1185 


1193^ 








1238* 


1242* 


1243* 


1244* 


1245* 


2493 


361 9# 








2257# 


2493* 


2520* 


253S* 


SS82<«< 


2442 


3593^ 








2330 


3570^ 








2297 


3568^ 








1079 


1091# 


1198 






2377 


.3584# 








2353 


3574^ 








2344 


3572# 








2365 


3576# 








236S 


357a# 








2374 


3582^ 








2371 


3580*1^ 








2429 


35914? 








1213 


3586# 








2670 


361 2# 








2649 


3608ii^ 








2582 


3599# 








2724 


359S# 








2706 


3604)1' 








2S85 


3600# 








2520 


36164! 








2535 


3597# 








2386 


3585i^ 








2307 


2311 


231 5# 






2305 


2308^ 








2309 


2312# 








2302 


2313 


2319# 


2322 




785# 


2112 


2638 






1194 


1196# 








671^ 










765# 










638# 










839# 










6S0# 











2@Si 



tSTI* 



2672 2687 



3016 3013 



27@1 



2779iSJ 



2648* 2670* 2685* 27G6* 2724* 



PR3 


000140 


PR4 s 


000200 


PR5 


000240 


PR6 


000300 


PR7 = 


000340 


PS 


177776 


PSW = 


177776 


PWRST 


002300 


PWRVEC== 


000024 


RBUF1 


017120 


RBUF2 


017322 


RBUF3 


017524 


RBUF4 


017726 


RBUF5 


020130 


PBUF6 


020332 


RCRCO 


001210 


^CRCI 


001212 


RCRC2 


001214 


RDCHR « 


104407 


RDLIN « 


104410 


RDOCT = 


104411 


RDSUB 


012522 


SEAO ^ 


104414 



TA11 MOTION TEST C2TAD-D RSACVII 30A(1052) 23-MAR"78 08^6 PAGE 92 
C2TADD.P11 23-MAR-78 08:34 CROSS REFERENCE TABLE ""» USER SYISBOLS 

691(5' 

692# 

693# 

694# 

695ji' 

668# 669 

2673* 2688* 

669# 

11 9B^ 3535 

760# 1049* 

3757 3763 

3758 3825# 

3759 3826# 

3760 3827# 

3761 3828# 

3762 3829# 
878/^ 2587* 
879ii^ 2625* 
880# 2628=* 

2142 2378 

2299 2430 

2331 2345 

820 2968# 

1294 1307 

1435 1451 

1549 1557 

1720 1740 

1947 1953 
3489^ 

789<^ 

755<S( 

1240 1266 

1400 1403 

1619 1621 

1735 1750 

1867 1882 

322 3026^ 

2977 2982 

1294 1295 

1358 1371 

1331 1557 

1720 1722 

1960 2052 

13S0 1392 

1508 rsis 

1797 1799 

1492 1494 

1965 1996 

1499 1501 

1549 1551 

2032 2034 

895 896# 

897# 2474 

B95# 1237'5' 

B7S& 225S'* 

3SS® 3SS4 



§i@ 0091 



SEO 0691 



READY ^ 000040 
KESVEC== 000010 
REWINDa 104421 



RGPBLK 012702 
-LNKX 017006 
RLNK1 016756 



E5LNK2 016762 



P'LNK3 


016766 


"LNK4 


016772 


kLNK5 


016776 


k'LNK6 


017002 


PWDA 


001260 


f^s^DB 


001262 


pyDFLG 


001256 


.^i^PC 


«-S'-304 



1202* 1250* 1254* aS23» 

2709* 2737* 2863* 



1050« 3502« 3S33« 351 2« 
382 4 4^ 



3554 

3554 

2533« 

3304 

2443 

2354 

2972 

1320 

1466 

1561 

1759 

1958 



2108 2213 



1291 

1415 

1639 

1754 

1889 

3030 

303S 

1307 

^373 

1559 

1740 

2054 

1405 

1518 

1897 

1S61 

1998 

1542 

1920 

3762# 

2477 

12S4* 
a492«' 
3550 



3554 

3484 # 

3345 

3A86^ 

2980 

1333 

1481 

1575 

1775 

1963 

2765 

1293 
1430 
1643 
1769 
1907 
3038 
3040 
1309 
1384 
1575 
1742 
2586 
1407 
1535 
1899 
1563 
2045 
1544 
1932 



2474* 
2519** 
3561 



1338 
1485 

1589 
1792 
1968 

2792 

1304 

1433 

1655 

1785 

1917 

3044 

3102* 

1320 

1386 

1577 

1759 

3757f 

1435 

1537 

3758# 

1817 

2047 

1701 

1925 



g4?T* 
iS34* 



1351 
1492 

isoa 

1797 
199S 

2877 

1317 
1445 
1659 
1789 
193S 

3763f 

1322 

1404 

1589 

1761 

1437 
1S09 

1819 

3759# 

1703 

1927 



2729 
2S01«» 



2S4S* 2551* 2570* 2SSS* 



351 S'^ 3530^^ 3S31« 



13S® 
1499 

1609 
1817 
2001 

2925 

1330 
1481 
1672 
1807 

1943 



1333 

1420 
1591 
177S 

1451 
1611 



1947 
2001 



2733* 
2648'^ 



1371 
1506 

1622 
1636 

2032 

2953 

1332 
1476 

1S77 
1814 
1370 



1335 
1422 
1602 
1777 

1453 
1529 



1949 
2003 



2881* 
2669* 



1384 
1512 

1629 
1854 
2033 

2S7S 

1348 
1526 
1S91 

1S27 
198S 



1338 
1481 
1604 
1792 

1466 
1631 



1968 
2033 



1390 
1516 
1645 
1872 
2045 

3007 

1350 
1571 
1697 

1B33 
2011 



1340 
1463 
1622 
1794 

1468 
1645 



1970 
2046 



1404 
1529 
1662 
1897 
2052 

3033 

1366 
1 585 
1711 

184S 
2024 



1351 
1S12 
1624 

1953 

1485 

1647 



3750# 
37®1# 



2629'!' 2652$ 



1405 
1535 
1681 
1920 
2977 

3063 

068 
1599 
1715 
1849 
3494# 



1353 
1514 
1662 
1955 

1487 

1681 



1420 

1542 
1701 
1925 
3035 



1381 
1601 
1730 
1884 



1358 
1529 
1664 
1958 

1506 
1683 



2Si4® 27§S® atSS* 2S9S* 3547 



j5;ioS°j;r -IU..-.S ^^° "*"" ^i^^.^a^^^^f's^'^.s 



SEQ 0093 



SEO oosa 



SAVRl 010244 
SELDRVs 104422 



SERV 012340 

SETBUF 013106 

SETLOO= 104424 

SFBG = 104420 

SFFG = 104417 



SFFGSB 


013000 


STACK 


= 001100 


STALL 


001264 


START 


002312 


STKLfWT 


« 177774 


SWR 


001140 


SWREG 


000176 


SWO 


= 000001 


SWOO 


= 000001 


SW01 


= 000002 


SW02 


= 000004 


SW03 


= 000010 


SW04 


= 000020 


SW05 


= 000040 


SW06 


s 000100 


SW07 


= 000200 


SW08 


= 000400 


SW09 


= 001000 


SW1 


« 000002 


SW10 


s 002000 


SW11 


s 004000 


SW12 


= 010000 


SW13 


= 020000 


SW14 


s 040000 


SW15 


= .100000 


SW2 


= 000004 


SW3 


= 000010 


SW4 


= 000020 


SW5 


= 000040 


SW6 


= 000100 


SW7 


= 000200 


SW8 


= 000400 


SW9 


= 001000 


TACSH 


001222 


TACSL 


001220 



TADBH 001226 

TADBL 001224 

TAPRIO 001234 

TAVEC 001230 



2435* 

1235 

1460 

1749 

2951 

2565 

2945 

2145 

1369 

1871 

1644 

1891 

2025 
823 
659# 
898# 

1197 
670j¥ 
854^ 

2232 

3105 
812# 
723# 
713# 
712* 
711<Sf 
710<!^ 
709# 
708# 

706# 
705# 
704A' 
722# 
703# 
702# 
701# 
700# 
699# 
698# 
721# 
720# 
719# 
718# 
717# 
7l6iy 
715# 
^^AM 
884# 
883« 

3735 
886# 
885# 
888# 
8874? 

2889^ 



2458 

1263 

1475 

1768 

2973 

2613 

2999 

3497« 

1434 

1962 

1660 

1892 

2026 

3056*1' 

1041 

1258* 

1200*5' 

1039 
2237 
3109 
1069 

723 
722 
721 
720 
719 
718 
717 
716 
715 
714 



2460* 

1290 

1525 

1784 

3005 

2873 

3090# 

1450 

3042 

1678 

1896 

2027 

3060 

2918 

1259* 

2089 

1061* 
2241 
3116 
1083 



2501 
2641 
2762 
2798 
1215 

2483 



2339* 
1129 

2342* 
1204 
1201 
1026 



1303 
1570 
1806 
3031 
2888# 



1465 

3493^ 

1698 

1918 

2028 

3069 

2946 

2802 



1063 
24S6 
3201 
3092 



2866 
2466 



2340* 
1203 

2343* 
2338* 
2364* 
1200* 



1316 
1584 
1826 
3061 



1716 
1919 
2029 

2968 
2803 



1069* 
2483 
3238* 
3105 



1329 
1598 
1845 
3080 



1736 
1944 
2030 



1083 
2501 
3510 
3116 



1347 
1618 
1863 
3495# 



1755 
1945 
3065 



1215 
2541 
3523* 
3201 



1365 1380 
1638 1654 
1881 1906 



1790 1796 
1967 1989 
34921^? 



1399 1414 1429 1444 
1671 1690 1710 1729 
1934 1977 2010 2923 



2116 
2762 



2118 
2798 



1815 
1990 



2149 
2866 



1816 
1991 



2167 
3099 



1835 
1995 



2174 
3096 



1890 
2000 



S2S5 
3098 



2336* 2339 2366 2919 2947 2969 3001 3027 3057 



2342 
2375 
1201* 



2369 2920 2948 
1348^ 1260« 2350» 



2970 3002 3028 3058 

2352* 2372 2S6S* 2613* 2869* 2873* 



1047* 1048* 



2765 

1269 

1397# 

1412# 

1427# 

1442# 

1458# 

1473# 

1523* 

1568)^ 

1301# 

1582# 

1596# 

1616# 

1636# 

1652# 

1669# 

1688^ 

1708# 

1314# 

1727^ 

1747# 

1766# 

1782# 

1804* 

1824# 

1843# 

1861# 

1327# 

1879# 

1904# 

1932# 

197S# 

2008<^ 

1345# 

1363# 

1378^ 

1198 

2258 

2374 

3308 

2255# 

2367 



3496 
3491 
3490 
3489 
3494 



2792 
1288# 



756# 

784i!' 2638 
763iS? 
764# 
762^ 
757*' 
787# 
1230 
1379 
1398 
1413 
1428 
1443 
1459 
1474 
1524 
1289 
1569 
1583 
1597 
1617 
1637 
1653 
1670 
1689 
1302 
1709 
1728 
1748 
1767 
1783 
1805 
1825 

1844 

1315 

1862 

1880 

1905 

1933 

1976 

1328 

1346 

1364 

1079 

2256 

2371 

3259 

2234 

2282 

3479# 

3478# 

2490# 

2669# 

2648# 

2581 i!f 

2723# 



SEQ 0093 



SEQ 0093 



TBITVE= 


000014 


TIMERR= 


002000 


TKVEC = 


000060 


TPVEC = 


000064 


TRAPVE= 


000034 


TRTVEC= 


000014 


TR.REO= 


000200 


TSTl 


002762 


TST10 


003342 


TST11 


003406 


TST12 


003450 


TST13 


003512 


TST14 


003556 


TST15 


003620 


TST16 


004012 


TST17 


004170 


TST2 


003016 


TST20 


004226 


TST21 


004254 


TST22 


004342 


TST23 


004420 


TST24 


004464 


TST25 


004532 


TST26 


004606 


TST27 


004666 


TST3 


003052 


T.ST30 


004740 


TST31 


005016 


TST32 


005070 


TST33 


005134 


TST34 


005216 


TST35 


005274 


TST36 


005350 


TST37 


005422 


T5T4 


003106 


TST40 


005474 


TST41 


005564 


TST42 


005672 


TST43 


006042 


TST44 


006162 


TST5 


003156 


TST6 


003226 


TST7 


003266 


TYPE 


s 104401 


TYPERR 007276 


TYPOC 


= 104402 


TYPON 


= 104404 


TYPOS 


= 104403 


T.BLKC 010362 


T.BSBG 011366 


T.BSFG 011304 


T.READ 010774 


T.RWND 011600 



1213 
2268 
2377 
3311 

2370 



1214 
2272 
2384 
3315 

2373 



1225 
2277 
2386 
3428 

2376 



1226 
2285 
2429 
3476i^ 

3215 



1275 
2297 
2442 
3532 

3477# 



1279 
2319 
3155 



2078 
2330 
3212 



2079 
2344 
3213 



2227 
2353 
3216 



2235 2255 
2365 2368 
3229 3240 
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SEQ 0094 



SEO 0094 



T.SELD 


010246 


2465A( 


3495 
























t.setl 


010106 


2428# 


2439 


3497 






















t.sfbg 


011520 


2705# 


3493 
























t.sffg 


01 1436 


2684# 


3492 
























t.wfg 


010504 


2519# 


3487 
























t.writ 


010554 


2534# 


3488 
























UNIT = 

waitfl 


000400 
01 1716 


786# 
2524 


2107 
2547 


2473 
2571 


2476 
2597 


2630 


2653 


2674 


2689 


2710 


2738 


a759iP 






WAITKE 


001254 


894i!' 


2550* 


2600» 


2764* 


2773 


2870* 


2888« 














WBUFX 


017112 


3110 


3770 


3816# 






















WBUF1 


017046 


3764 


3774^ 
























WBUF2 


017054 


3765 


3781^ 
























WBUF3 


017062 


3766 


3788# 
























WBUF4 


017070 


3767 


3795<i> 
























WBUF5 


017076 


3768 


3802# 
























WBUF6 


017104 


3769 


3809# 
























WCRCX 


017116 


3821# 


























WCRC1 


017052 


3779# 


























WCRC2 


017060 


37864* 


























WCRC3 


017066 


3793# 


























WCRC4 


017074 


3800/¥ 


























WCRC5 


017102 


3807/^ 


























WCRC6 

WFG 


017110 
104412 


3814# 
1241 


1267 


1573 


1587 


1606 


1626 


1641 


1657 


1674 


1693 


1713 


1732 


1752 


1771 


1787 


1809 


1811 


1813 


1830 


1832 


1851 


1884 


1886 


1888 


1910 


1913 






1916 


1939 


1942 


1981 


1984 


1987 


2013 


2015 


2017 


2019 


2021 


ao23 


2927 






3009 


3487# 
























WFGSUB 


012364 


B18 


2918# 


2922 


2931 




















WGBLOP 


012614 


3000i^ 


3004 


3016 






















WGPBLK 


012610 


821 


2999^ 
























WLNKX 
WLNK1 


017042 
017012 


2955 
1292 


2983 
1297 


3012 
1305 


3041 
1310 


3103* 
1318 


3770# 
1323 


1331 


1336 


1341 


1349 


1354 


1359 


1367 






1374 


1382 


1387 


1401 


1416 


1423 


1431 


1446 


1462 ■ 


1477 


1484 


1515 


1527 






1532 


1560 


1572 


1578 


1586 


1592 


1600 


1605 


1620 


1625 


1640 


1656 


1665 






1673 


1692 


1712 


1723 


1731 


1743 


1751 


1762 


1770 


1778 


1786 


1795 


1808 






1828 


1847 


1865 


1883 


1908 


1936 


1956 


1961 


1979 


2012 


2055 


S586 


3764<S' 


WLNK2 


017016 


1388 


1393 


1402 


1408 


1417 


1432 


1438 


1447 


1454 


1463 


1469 


1478 


1488 






1504 


1509 


1519 


1533 


1538 


1607 


1612 


1627 


1632 


1642 


l64o 


1658 


1675 






1684 


1694 


1714 


1733 


1753 


1772 


1788 


1800 


1810 


1829 


1848 


1866 


1885 






1900 


1909 


1937 


1980 


2014 


3765# 
















WLNK3 


017022 


1490 


1495 


1554 


1564 


1676 


1695 


1734 


1812 


1820 


1831 


1839 


1852 


^857 






1869 


1875 


1887 


1911 


1938 


1966 


1982 


1999 


2016 


2048 


3766^ 






WLNK4 


017026 


1497 


1502 


1540 


1545 


1696 


1704 


1912 


1940 


1950 


1971 


1983 


2018 


tS767if 


WLNK5 


017032 


1547 


1552 


1914 


1923 


1928 


1941 


1985 


2004 


2020 


2041 


3768# 






WLNK6 


017036 


1915 


1986 


2022 


2035 


3769# 


















WLOOP 


012444 


2946# 


2950 


2959 






















WRITE = 


104413 


1292 


1305 


1318 


1331 


1349 


1367 


1382 


1388 


1401 


1402 


1416 


1417 


1431 






1432 


1446 


1447 


1462 


1463 


1477 


1478 


1490 


1497 


1504 


1527 


1533 


1540 






1547 


1554 


1572 


1586 


1600 


1607 


1620 


1627 


1640 


1642 


1656 


1658 


1673 






1675 


1676 


1692 


1694 


1695 


1696 


1712 


1714 


1731 


1733 


1734 


1751 


1753 






1770 


1772 


1786 


1788 


1808 


1810 


1812 


1828 


1829 


1831 


1847 


1848 


1852 






1865 


1366 


1869 


1883 


1885 


1887 


1908 


1909 


1911 


1912 


1914 


1915 


1936 






1937 


1938 


1940 


1941 


1979 


1980 


1982 


1983 


1985 


19S6 


20ia 


2014 


2016 






2018 


2020 


2022 


2955 


3012 


3488# 
















WRTLOC= 


010000 


782# 


2114 


2638 






















WRTSUB 


012440 


819 


2945# 
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SEQ 0095 



SEQ 00S5 



XBSBG = 


000010 


773^ 


2672 
















XBSFG = 


000006 


n2» 


2651 
















XREAD = 
XRWND = 


000004 
000016 


776# 


2594 
1239 


2627 
1265 


2736 


2924 


2952 


2974 


3006 


3032 


XSFBG = 


000014 


775^ 


2708 
















XSFFG = 


000012 


774# 


2687 
















XWFG = 


000000 


769(¥ 


1249 


2522 














XWRITE= 


000002 


770# 


2545 


2569 














SAUTOB 


001134 


851 # 


1087* 


3209 


3330 












SBDADR 


001122 


846^ 


















SBDDAT 


001126 


848j!^ 


2513* 


3550 














$BELL 
SCHARC 


001174 
013444 


871i^ 
3157* 


2227 
3167* 


2253 
3174 


3183* 


3ia8# 










SCKSWR 
SCMTAG 


013450 
001100 


3201# 
834^ 


3483 
1036 


1037 


1045 


1051 


1052 


1053 






$CM1 - 


000002 


866# 


867# 


868# 














$CM2 = 


000004 


BBSH 


867# 


868# 














$CM3 = 


000002 


Q&An 


866 
















$CM4 = 


000001 


868# 


869# 
















SCNTLG 


014175 


3212 


3325# 
















$CNTLU 
$CRLF 


014170 
001201 


3229 
873# 


3324# 
2235 


2253 


2255 


22S8 


2277 


3156 


3191 


3240 


SDOAGN 
$ENDAD 


006442 
006432 


2074 
1077 


2081 
1142 


2087# 
1192 


1282 


2083# 


2248 








SENDCT 


006406 


1051 


2076# 
















SENDMG 


006451 


2078 


2091* 
















$ENULL 


006446 


2079 


2090# 
















$EOP 


005352 


2009 


2066# 
















$EOPCT 
SERFLG 


006400 
001103 


1051* 
837# 


2073# 
2130 


2077 
2163 


2165 


2171* 


2191 


2222* 


2253 


2485* 


SERMAX 


001115 


843# 


1054* 


2165 


2187* . 


2191 










SERROR 
SERRPC 


007046 
0011 16 


1045 
844# 


2205*1 
2229* 


2230* 


2231 


2253 


3547 


3550 


3554 


3558 


SERRTB 


001270 


91 3# 


2266 
















SERTTL 
SESCAP 


001112 
001172 


841 # 
870# 
\ 443'i< 


2228* 
1053* 
1459« 


2253 

1236* 

1474* 


1289* 
1524* 


1302* 
1569* 


1315* 
1583* 


1328* 
1597* 


1346* 
1617* 


1364* 
1637* 






1 728* 


1748'9' 


1767* 


1783* 


1805* 


1825>s> 


1844* 


1862* 


1880* 






2186* 


2220* 


2244 


2246 


2253 


2617 


2618* 


2622* 


3079* 


$FILLC 


001156 


862s!? 


3160 


3191 














SPILLS 


001155 


BBIf 


3191 
















SGDADR 


001120 


845^ 


















SGDDAT 


001124 


847# 


251 B* 


3550 














$GET42 


006422 


2080# 


















SGTSWR 


013520 


321 3# 


3481 
















$HD 


: 000000 


592 


















SHIOCT 


014324 


3362* 


3367# 
















SICNT 


001104 


838# 


2178* 


2179 


2181* 


2191 










SILLUP 


015026 


3502 


3518 


3537# 














SINTAG 


001135 


852* 


3241 


3330 














SITEMB 


001 1 14 


842# 


2231* 


2253 


2261 












SLF 

SLPADR 

SLPERR 


001202 
001106 
001110 


874# 

839* 

840^ 

3078* 


2253 

1055* 

1056* 


3191 

1228* 

2169 


3315 

2169* 

2185* 


3324 

2184* 

2191 


2189 
2243 


2191 
2454* 


2451* 
2922* 


2453* 
2950* 


%mkli 


ss ****** U 


1073 


1083 


2184 


2237 


3144 











1379* 1398* 1413* 1428* 
1653* 1670* 1689* 1709* 
1905* 1933* 1976* 2009* 



2972* 3004* 3030* 



"- — ^% „.„-,B iVAr "*"" T«i;f ^^.E^.irEVJ.E^fi^SsESi^MiJu 

CZTADD.P11 23-MAR-78 OB-cJA 



SiQ 0096 



SEQ 0098 



$MNEW 


014213 


SMSWR 


014202 


SWIXCNT 


001216 


$NULL 


001154 


$NWTST= 


000001 


$OCNT 


014550 


$OMODE 


014552 


$OVER 


007032 


SPASS 


001100 


SPOWER 


015034 


$PWRAD 


015022 


SPWRDN 


014662 


$PWRMG 


015016 


SPWRUP 


014734 


$OUES 


001200 


SRDCHR 


013732 


$RDDEC= 




SRDLIN 


014052 


SRDOCT 


014224 


$RDSZ = 


000010 


SREGAD 


001160 


$REGO 


001162 


$REG1 


001164 


SRTNAD 


006444 


$R2A = 


. ****** 


$SAVRE= 


; ****** 


$SAVR6 


015032 


$SCOPE 


006570 


$SETUP 


s 000137 



$SS = 000000 
$STUP a 177777 
SSVLAD 007004 
$SWR a 167000 



$SWRMK= 


000000 


STIMES 


001170 


$TKB 


001146 


$TKS 


001144 


$TMP0 


001166 


$TN 


000045 



$TPB 001152 
$TPFLG 001157 
$TPS 001150 



3216 


3328* 
























3213 
882^ 


3326^ 
1207* 


1219* 


2182 


2191 


















860# 
1285^5' 
1520# 
17794f 


3162 
1298# 
1565# 
1801# 


3191 
1311# 
1579# 
1821# 


1324* 
15931^ 
1840# 


1342# 
1613# 
1858# 


1360* 
1633* 
1876# 


1375# 
1649# 
1901# 


1394# 
1666# 
1929^ 


1409# 
1685# 
1972# 


1424# 
1705# 
2005# 


t439# 
1724# 


14S5# 
1744# 


1470# 
1763# 


3400* 
3395* 


3429* 
3399* 


3442i!^ 
3404 


3407* 


3418* 


3444# 
















2148 
835^ 


2150 
1229 


2170 
2070* 


2180 
2071* 


2188# 
2090 


2176 


2191 














3533 


3540iS* 
























3535# 


























1049 


3502# 


3530 






















3533# 


























3512 
872# 


351 8# 
2253 


2319 


2384 


3191 


3259 


3308 


3324 












3272* 


3484 
























3437 


























3300iSf 


3485 
























3340# 


3486 
























3293# 


























864# 
866i¥ 


2207* 


2216 


3547 


3550 


3554 


3558 


3561 












867# 


2208* 


3547 


3558 




















2089# 


























3487 


























3487 
3511* 


3519 


3520* 


3521* 


3539# 


















1043 

1022# 

2139 


2138# 

1042 

2206 


1043 
2240 


1045 
2248 


1047 
3196 


1049 
3330 


1051 


1052 


1053 


1055 


1077 


1080 


2068 


1285# 


























1022;!^ 
2158 

582# 
1053 
1443 
1728 
2061 
2164 
2225 


2183# 

592 
1055 
1459 
1748 
2069 
2165 
2232 


642 
1056 
1474 
1767 
2082 
2172 
2237 


643 
1289 
1524 
1783 
2088 
2173 
2241 


644 
1302 
1569 
1805 
2090 
2174 
2253 


645 
1315 
1583 
1825 
2131 
2185 
2483 


646 
1328 
1597 
1844 
2132 
2188 
3536 


647 
1346 
1617 
1352 
2133 
2191 


648 
1364 
1637 
1880 
2134 
2197 


869 
1379 
1653 
1905 
2135 
2198 


870 
1398 
1670 
1933 
2149 
2199 


871 
1413 
1689 
1976 
2161 
2200 


1052 
1428 
1709 
2009 
2163 
2201 


2135 
869# 


1052* 


2069* 


2172* 


2179 


2182* 


2191 














857# 
856# 


3194 
2140 


3205 
3194 


3222 
3203 


3276 
3219 


3282 
3243* 


3274 


3280 












868^ 
582^ 
1364# 
1470 
1637# 
1763 
1880^ 


2615* 

592 
1375 
1474# 
1649 
1767# 
1901 


3558 

1285 

1379A' 

1520 

1653# 

1779 

1905# 


1289/? 

1394 

I524i5f 

1666 

1783# 

1929 


1298 

1398# 

1555 

1670# 

1801 

1933^ 


1302^ 

1409 

1569* 

1685 

1805# 

1972 


1311 

1413# 

1579 

1689# 

1821 

1976i? 


1315# 

1424 

1583# 

1705 

1825** 

3005 


1324 

iA2BP 

1593 

1709# 

1840 

2009il! 


1328«f 

1439 

1597# 

1724 

1844# 


1342 

1443# 

1613 

1728^ 

1858 


1346# 

1455 

1617# 

1744 

1862# 


1360 

1459^ 

1633 

t748# 

1876 


859^ 


3180* 


3191 






















863# 


3138 


3191 






















858# 


3178 


3191 























TA11 MOTION TEST 
CZTADD.P11 23-^AR' 



..s siifr" """' r.^inu^crzj'-^is^i'i^>^^^^ 



SEQ 0097 



STRAP 


014554 


$TRAP2 


014576 


STRP = 


000025 


STRPAD 


014610 


STSTNW 


001102 


STTYIN 


014160 


$TYPBN= 


****** u 


$TYPDS= 


****** u 


$TYPE 


013230 


STYPEC 


013400 


$TYPEX 


013446 


$TYPOC 


014352 


STYPON 


014366 


STYPOS 


014326 


SXTSTR 


006630 


$$GET4= 


000000 


SOFILL 


014551 


$40CAT= 


. ****** L 



020534 



1047 

3464# 

3468# 

3489# 

3458 

836# 
3301 
3480 
3480 
3138# 
3159 
3184 
3398# 
3397 
3393# 
2152# 
2082# 
3394* 
2149 

806# 
3194 
3831 



3453# 

3475 

3477# 

3490# 

3475* 

1205* 

3302 



3478# 
3491 # 



2068* 
3319 



34791? 
3492# 



2130 
3323)? 



3480^ 
3493/9 



3481 
3494# 



3482# 
3495# 



2183* 2188 2191 



3468 3476 

3166 3173 

3186 3189* 

3477 

3400# 3479 

3478 



3398* 3408 
2234 

aiO# 833/i' 

3323^ 3324 



3178# 3179 



875 
3330 



1040 
3514 



3245 



toss 

3538 



3483 
3496# 



1056 
3734# 



3484# 
3497# 



2090 
3824# 



3485# 
3498# 



2093 
382S# 



SEQ 009? 



34864? 3487# 348S# 



2191 
3826# 



2253 
3827 # 



2288# 
3828# 



3191 

3829# 



ABS. 020534 000 

ERRORS DETECTED*. 
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